Excel VisualBasic Script

Sub EndUp()
  Cells(Rows.Count, "A").End(xlUp).Select
End Sub