任意のセルを含む空白行/列に囲まれた範囲を取得する

Option Explicit
Sub A_Sample005()
Dim myRng1 As Range
Dim myRng2 As Range
Set myRng1 = Range(“A1”)                    ‘任意のセル
‘準備ここまで
Set myRng2 = myRng1.CurrentRegion
MsgBox myRng2.Address
Set myRng1 = Nothing                        ‘オブジェクトの解放
Set myRng2 = Nothing
End Sub