Gostaria de saber se alguém pode me ajudar na seguinte dúvida, preciso que
minha macro de tabela dinâmica se auto ajuste ao tamanho dos meus relatórios,
pois a linha final deles tem que ser uma váriavel.


Sub Nova_tabDin()
'
' Nova_tabDin Macro
' Macro gravada em 27/12/2005 por Djeison e Luciana
'
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatab ase, SourceData:= _
"Plan1!R1C1:R12C3").CreatePivotTable TableDestination:="",
TableName:= _
"Tabela dinâmica2", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("Tabela dinâmica2").PivotFields("CODCLIENTE"). _
Subtotals = Array(False, False, False, False, False, False, False,
False, False, False, _
False, False)
ActiveSheet.PivotTables("Tabela dinâmica2").AddFields RowFields:=Array( _
"CODCLIENTE", "Dados")
With ActiveSheet.PivotTables("Tabela dinâmica2").PivotFields("PEDIDOS")
.Orientation = xlDataField
.Position = 1
End With
ActiveSheet.PivotTables("Tabela
dinâmica2").PivotFields("VALOR").Orientation = _
xlDataField
End Sub


Thanks...
--
Djeison Girardi Farias