Hi, this will detect last row of column A on the current sheet.

Dim LastRow As Long
LastRow = Cells(Rows.Count, "A").End(xlUp).Row


--
Cheers
Nigel



"PJ0779" wrote in message
...
I need to copy information from worksheet A and put that information the
first blank cell of Column A in worksheet B in a macro.