マクロ】A列の一番下の空白セルをアクティブにする

  次のサンプルは、データが入力されたシートでA列の最終行から上方向に終端セルをさがし、その1行下のセルを選択します。

Sub Sample1()

    Dim Last_Row As Long

    Last_Row = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

    Cells(Last_Row + 1, 1).Select

End Sub

または、Offsetプロパティと組み合わせて下記のように1行で行うこともできます。

Sub Sample2()

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

End Sub