下記の（１）はA列の下から空白セルを捜します。
（２）はA列の上から空白セルを捜すので、データが連続していないと
一番上の空白セルがアクティブになります。 

（１）A列の下から空白セルを捜す。
Sub Sample()

    Dim Last_Row As Long

    Last_Row = ActiveSheet.Cells(65536, 1).End(xlUp).Row
    Cells(Last_Row + 1, 1).Select

End Sub 

（２）A列の上から空白セルを捜す。

Sub Sample()

    Dim Last_Row As Long

    Last_Row = ActiveSheet.Cells(1, 1).End(xlDown).Row
    Cells(Last_Row + 1, 1).Select

End Sub