Hello Nirmala,

Enable the "Developers Tab" and change to "Design Mode". Double-click your button and copy the following code to your "Sub" between the lines: "Private Sub CommandButton1_Click()" and "End Sub". Once you copied, disable the "Design Mode" again and enjoy your macro :-)

ps. Copying the code from RG will add a useless extra line when you paste it. Just delete this line.

Then one technical hint: I think you may have mixed up the terms "sheet" and "cell range" in your title.

Dim Sc1_title As String

Dim i As Integer

Dim assigned As Boolean

assigned = False

' the range of the cells with content to be copied

Range("D8:D13").Copy

' the cell with the title

Sc1_title = Range("D7").Value

' i is the column number where the loop begins to search for the title (date)

i = 3

' loops row number 17 and searches for the corresponding title...

' if title is found, insert the copied values below

Do While Cells(i, 1).Value "" Or assigned True

If Cells(17, i).Value = Sc1_title Then

Cells(18, i).PasteSpecial xlPasteValues

assigned = True

End If

i = i + 1

Loop

Range("D8:D13").ClearContents

Thank you very much Martin. This is indeed useful.

There is a Web site called'excelfourm.com' that you can join for free. There you can read the answers to all finds of queries and pose any questions of your own regarding VBA. I have learned a lo from this Web site.