ListObject.HeaderRowRange (Excel)

Returns a Range object that represents the range of the header row for a list.

Dim rngHeaderRowRange As Range
Set rngHeaderRowRange = ActiveCell.ListObject.HeaderRowRange