Hi Judy,
If column A will be sufficient to define a blank row

dim rw as long
rw = Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).row

---
HTH,
David McRitchie, Microsoft MVP - Excel [site changed Nov. 2001]
My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm
Search Page: http://www.mvps.org/dmcritchie/excel/search.htm

"Judy Ward" wrote in message ...
I need a macro that will select the rows from one worksheet and paste them on
the first blank row of another worksheet. Can someone help me with the code
that will select the first blank row?

Thank you,
Judy