最端セルの取得

■Endプロパティを使用する
オブジェクト.End( 方向 )
オブジェクト：出発点となるセルのオブジェクト
方向：以下の引数より指定する
　xlUp (上）xlDown（下）xlToRight（右）xlToLeft（左）
■使用例

Sub sample()
    Dim targetRange As Range
    Set targetRange = Range("A1").End(xlDown)
    '以下の書き方でも同じ結果が得られる
'    Set targetRange = Cells(1, 1).End(xlDown)
    MsgBox targetRange.Address
End Sub

ray88.hatenablog.com