Hi

Dim Lr as long
lr = Cells(Rows.Count, "A").End(xlUp).Row + 1

lr will give the row number of the first empty row in column A

--
Regards
Roger Govier

"Bigpond" wrote in message
...
Can you help please
I am writing a data base in excel for our school, to track the resources,
I
need to have a macro that will take person from the Index Spread Sheet to
a
Spreadsheet called "Loan Area" and then take them to the next available
(empty) row on that sheet so that they can fill in their details,
I just cant get it to take them to the first blank cell in column A

Thanks