Range.ListHeaderRows (Excel)

Devuelve el número de filas de encabezado para el rango especificado.

Antes de usar esta propiedad, utilice la propiedad CurrentRegion para buscar los límites del rango.

Dim lngListHeaderRows As Long
lngListHeaderRows = ActiveCell.ListHeaderRows