Tabela dinâmica com vba

[Caio Fagundes]

Olá, criei um comando para gerar uma tabela dinâmica. Mas como pode-se observar, o comando só gera a tabela dinâmica caso o número de colunas seja até a coluna 22.
Gostaria de um comando onde pudesse substituir o comando SourceData:= _"Status Última Hora -!R1C1:R200000C22" por um comando onde R e C sejamos valores de linhas e colunas qualquer e variável que contém informação.

Deve existir algum comando do tipo: Olá, criei um comando para gerar uma tabela dinâmica. Mas como pode-se observar, o comando só gera a tabela dinâmica caso o número de colunas seja até a coluna 22.

Gostaria de um comando onde pudesse substituir o comando SourceData:= _"Status Última Hora -!R1C1:R200000C22" por um comando onde R e C sejamos valores de linhas e colunas que contém informação, independente de quantas linhas ou colunas sejam

 

Deve existir algum comando do tipo: SourceData:= _"Status Última Hora -!R1C1:RtodalinhapreenchidaCtodacolunapreenchida"

 

SEGUE COMANDO:

Sub TABELA_DINAMICA_FORMATADA()
'FAZ COM QUE TODA E QUALQUER PLANILHA ATUAL TENHA O MESMO NOME
    ActiveSheet.Name = "Status Última Hora -"
    
'CRIA TABELA DINÂMICA DA PLANILHA ATUAL
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Status Última Hora -!R1C1:R200000C22", Version:=xlPivotTableVersion12).CreatePivotTable _
        TableDestination:="", TableName:="PivotTable1", DefaultVersion _
        :=xlPivotTableVersion12