Atualizar Intervalo de Tabela Dinâmica (Intervalo Dinâmico)

Boa tarde!!
Atualizar Intervalo de Tabela Dinâmica (Intervalo Dinâmico)

Código:

Sub Atualizar_Intervalo_TD_I()
    Worksheets("GuiaDestino").PivotTables("TD1").ChangePivotCache _
        ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, _
        SourceData:=Sheets("GuiaOrigem").Range("A1").CurrentRegion)
End Sub

Código:

Sub Atualizar_Intervalo_TD_II()
    Dim pivotTable As pivotTable
    Set wbTarget = ThisWorkbook
        
    For Each pivotTable In wbTarget.Sheets("GuiaDestino").PivotTables
        pivotTable.SourceData = Sheets("GuiaOrigem").Range("A1:B1000").Address(True, True, xlR1C1, True)
        pivotTable.PivotCache.Refresh
        pivotTable.RefreshTable
        ActiveWorkbook.RefreshAll
    Next
End Sub

Att