使用セル範囲の右下端のセルを取得する

Option Explicit
Sub A_Sample010()
Dim myRng1 As Range
Dim myRng2 As Range
Dim mySht As Worksheet
Set mySht = Worksheets(1)                           ‘任意のシート
Set myRng1 = mySht.UsedRange                        ‘使用セル範囲
‘準備ここまで
Set myRng2 = myRng1.SpecialCells(xlCellTypeLastCell)
MsgBox myRng2.Address
Set myRng1 = Nothing                                ‘オブジェクトの解放
Set myRng2 = Nothing
Set mySht = Nothing
End Sub