ListObject.ListRows (Excel)
Retorna um objeto ListRows que representa todas as linhas de dados no objeto ListObject . Somente leitura.
O objeto ListRows retornado não inclui o cabeçalho, o total ou Inserir linhas.
Dim lrsListRows As ListRows
Set lrsListRows = ActiveCell.ListObject.ListRows