lastrow = Worksheets("A").Cells(rows.count,1).End(xlup).row
worksheets("B").Rows(3).copy Destination:= _
Worksheets("A").Range("A4").Resize(lastrow-3).EntireRow

--
Regards,
Tom Ogilvy


"Paige" wrote:

Have been trying to figure out how to do this. I have 2 worksheets, A and B.
Need to copy row 3 on worksheet B and paste it down as many rows as there
are on worksheet A. Example, if the last row of data on A is in row 4500,
then I need to copy Row 3 on B and paste it from row 4 through 4500 of
worksheet B. The # of rows on A will change each time. I know how to do all
the copy/paste stuff, but am stuck on how to direct VB on how many rows to
paste down. Would appreciate help very much on this.....thanks.