I don't know how you determine the lastrow or what you mean by record set, but
maybe this will help:

Option Explicit
Sub testme01()

Dim myRow As Range
Dim iRow As Long

With ActiveSheet
Set myRow = .Rows(2)
For iRow = 4 To 2000 Step 2
myRow.Copy _
Destination:=.Rows(iRow)
Next iRow
End With

End Sub




yankeefan wrote:

I need to do the following inside an excel macro. I will insert some
information on row 2 of a spreadsheet. I need that row copied and pasted on
all even rows of that spreadsheet until the end of the recordset, starting
on row 4. Can anyone help with the code?

--

Dave Peterson