Sub LastRow()
Dim lngLastRow As Long
Dim lngRow As Long
Dim r As Range
lngLastRow = Range("A1048576").End(xlUp).Row
Application.GoTo Cells(lngLastRow, 1)
' Revove selection from sight
Application.ScreenUpdating = False
Set r = Application.ActiveWindow.VisibleRange
r(r.Cells.Count + 1).Select
Application.ScreenUpdating = True
End Sub