ヘッダーを除いたセル範囲を取得

Ctrl+Aで取得できる範囲から、Offsetで一行下げて、Resizeで一行減らす処理。
起点は何も考えずC7にしました。

Dim セル範囲 As Range
With Range("C7").CurrentRegion
    Set セル範囲 = .Offset(1).Resize(.Rows.Count - 1)
End With

以上。