Sub 行の一番最後プラス1へ()
‘
‘ 行の一番最後＋１へ
‘
Range(“A1”).Select
Selection.End(xlDown).Offset(1, 0).Select

End Sub