Boa noite!!

Por favor, tire um tempo e leia as regras, os arquivos devem ser compactados!!
viewtopic.php?f=7&t=203

Imagine que você ao criar suas tabelas dinâmicas, selecionou as colunas por inteiro.
Para atualizar todas as tabelas veja:

Sub AtualizaTabelasDinamicas()

Dim PT As PivotTable
Dim WS As Worksheet

    For Each WS In ThisWorkbook.Worksheets

        For Each PT In WS.PivotTables
          PT.RefreshTable
        Next PT

    Next WS

End Sub

Att