ListObject.DataBodyRange (Excel)

Retorna um objeto Range que representa o intervalo de valores, excluindo a linha de cabeçalho, em uma tabela. Somente leitura.

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