De maneira simples demonstro como atualizar uma tabela dinâmica sem botão, automaticamente, e para funcionar:
- A Tabela de dados, conteúdo, deve estar na Plan1
- O código VBA abaixo e a tabela dinâmica deve estar no mesmo sheet (no caso abaixo no Plan2)
Desta maneira ao alterar os dados na Plan1 e ao clicar no Plan2 irá atualizar automaticamente a tab. dinamica (Plan2)
Codigo Atualizar Tabela Dinâmica sem botão
Private Sub Worksheet_Activate() 'Lembrando que este código deve estar no Plan2 'PivotTable1, é o nome da tabela dinâmica Sheets("Plan2").PivotTables("PivotTable1").RefreshTable End Sub
Video Demonstrativo