Sub LastCell()
Dim LastCellRow As Long
Dim FirstOpenRow As Long
LastCellRow = Cells(Rows.Count, "A").End(xlUp).Row
FirstOpenRow = LastCellRow + 1
MsgBox FirstOpenRow
End Sub

---
HTH
Jason
Atlanta, GA

-----Original Message-----
Hello from Steved

Please in Column A how do i find the last row with data
using a macro.

At the moment I'm on Row 1108 so can a macro find the
next
row in this case 1109 biut by tonight I'll be on row
1150,
so in this case would it goto row 1151.

Thankyou Very Much.
.