TableObject.ResultRange (Excel)

Retorna um objeto Range que representa a área da planilha ocupada pela tabela de consulta especificada. Somente leitura.

Dim rngResultRange As Range
Set rngResultRange = ActiveCell.ListObject.TableObject.ResultRange