テーブル

取得

　1つめ

シート.ListObjects(1)

　テーブル名

シート.ListObjects("テーブル名")

　テーブル内のセルから

テーブル内のセル.ListObject

セル範囲

　ヘッダ行 + データ行

With テーブル
    Dim セル範囲 As Range
    Set セル範囲 = Union(.HeaderRowRange, .DataBodyRange)
End With