スキルアップ・問題解決なら、モーグにおまかせ！

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

(1)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 

(2)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