タイトル行を除いたセル範囲を取得する。

Option Explicit
Sub A_Sample008()
Dim myRng1 As Range
Dim myRng2 As Range
Dim mySht As Worksheet
Dim myLngR As Long
Set mySht = Worksheets(1)                   ‘任意のシート
Set myRng1 = mySht.UsedRange                ‘タイトル行を含むデータ範囲
myLngR = myRng1.Rows.Count                  ‘行サイズ
‘準備ここまで
Set myRng2 = myRng1.Resize(myLngR – 1).Offset(1)
MsgBox myRng2.Address
Set myRng1 = Nothing                        ‘オブジェクトの解放
Set myRng2 = Nothing
Set mySht = Nothing
End Sub