Range.ListHeaderRows (Excel)

Returns the number of header rows for the specified range.

Before you use this property, use the CurrentRegion property to find the boundaries of the range.

Dim lngListHeaderRows As Long
lngListHeaderRows = ActiveCell.ListHeaderRows