指定したサイズに変更したセル範囲を取得する

Option Explicit
Sub A_Sample007()
Dim myRng1 As Range
Dim myRng2 As Range
Dim myLngR As Long
Dim myLngC As Long
myLngR = 6                                  ‘行サイズ
myLngC = 2                                  ‘列サイズ
Set myRng1 = Range(“A1:C5”)                 ‘任意のセル範囲
‘準備ここまで
Set myRng2 = myRng1.Resize(RowSize:=myLngR, ColumnSize:=myLngC)
MsgBox myRng2.Address
Set myRng1 = Nothing                        ‘オブジェクトの解放
Set myRng2 = Nothing
End Sub