Excel VBA

...e_024...


Jump to the last not empty cell

Sub Last_row1()
  ActiveSheet.Cells(Rows.Count, 1).End(xlUp). _
     Offset(1, 0).Select
End Sub

by Frank Arendt-Theilen


Alternative

Sub Last_row2()
  Range("A65536").End(xlUp).Offset(1, 0).Select
End Sub

by Bernd Held