Macro to blank row on bew sheet

[Bigpond]

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

 

[Roger Govier]

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

 

[Bigpond]

Thanks Roger but it is not working, I want it to go to the first vacant
empty row in column B
My Macro looks like this
Sub NEWOUT()
'
' NEWOUT Macro
'

'
Sheets("Loan Area").Select
Dim Lr As Long
Lr = Cells(Rows.Count, "A").End(xlUp).Row + 1

End Sub

It still takes me to B2 each time vacant or full

Any suggestions for an old amature

thanks

 

[Ron de Bruin]

See
http://www.rondebruin.nl/last.htm

 

[Roger Govier]

Hi Peter
Lr gives the last row number.
You need to activate the cell in column A for this row number.
Sub NEWOUT()
' NEWOUT Macro
Sheets("Loan Area").Select
Dim Lr As Long
Lr = Cells(Rows.Count, "A").End(xlUp).Row + 1
Cells(lr,”A”).Activate
End Sub