Work from the bottom up...

Cells(Rows.Count,"A").End(xlUp).Offset(1)
(add .Row if you want/need the row number...)