Saberexcel - o Site das Macros
Macro do Aplicativo Microsoft Excel VBA, atualiza uma tabela dinâmica, neste exemplo inseri um passo a passo com shapes(autoformas) e imagens para um melhor entendimento de tabela dinâmica, acho que poderá ajudar.

Sub Atualizar_Tabela_Dinamica()
Range("C5").Select

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'Tabela Dinamica'!R5C2:R13C4").CreatePivotTable TableDestination:="", _
TableName:="Tabela dinâmica17", DefaultVersion:=xlPivotTableVersion10

ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select

With ActiveSheet.PivotTables("Tabela dinâmica17").PivotFields("Produto")
.Orientation = xlRowField
.Position = 1
End With

With ActiveSheet.PivotTables("Tabela dinâmica17").PivotFields("Cliente")
.Orientation = xlRowField
.Position = 2
End With

With ActiveSheet.PivotTables("Tabela dinâmica17").PivotFields("Valor")
.Orientation = xlRowField
.Position = 3
End With

ActiveSheet.PivotTables("Tabela dinâmica17").AddDataField ActiveSheet. _
PivotTables("Tabela dinâmica17").PivotFields("Valor"), "Soma de Valor", xlSum

ActiveWorkbook.ShowPivotTableFieldList = False
Range("H3").Select
End Sub



Aprenda sobre o Aplicativo Microsoft Excel VBA - Saberexcel



   Baixe o exemplo de planilha contendo o passo a passo e macros acima
 vba tabela dinamica subtotal passo a passo (654.87 kB 2010-11-28 09:28:52)