ListObject.DataBodyRange (Excel)

Returns a Range object that represents the range of values, excluding the header row, in a table.

Dim rngDataBodyRange As Range
Set rngDataBodyRange = ActiveCell.ListObject.DataBodyRange