1 - Primeiro vamos pegar o nome da tabela dinâmica que iremos atualizar e para isso clique com o botão direito na tabela dinâmica e depois em "Opções da Tabela Dinâmina".

2 - O nome da tabela será "Tabela dinâmica1".

3 - Inserir uma macro conforme abaixo:

Sub Pivot() 
  ActiveSheet.PivotTables("Tabela dinâmica1").PivotCache.Refresh 
End Sub

4 - Pronto ao rodar essa macro a tabela dinâmica ira atualizar.

Caso queria esse arquivo, favor enviar um email para atendimento@exceleaccess.com solicitando.