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)


Alterar Célula Automaticamente

 

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