this should help

lastrow = Sheets("sheet3").Cells(Rows.Count, "a").End(xlUp).Row
MsgBox lastrow

--
Don Guillett
SalesAid Software

"Paige" wrote in message
...
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.