Actualizar dinámicas origen de iguales

Estimado experto
En una de tus respuestas indicas que hay que ir dinámica por dinámica para actualizar el rango de datos.
Para su conocimiento existe la función soursedata para las dinámicas. Con ella puede cambiar el origen de datos.
Espero te sea de utilidad para otras respuestas.
To tengo un código algo así.
Sub Cambiaorigendatos()
Dim origen As String
Dim hojas As Integer
Dim n As Integer
origen = InputBox("Ingrese hoja y rango de datos", "Actualizador")
hojas = Worksheets.Count
For n = 1 To hojas
    Worksheets (hojas)
    Tabla = ActiveSheet.PivotTables.Count
    ActiveSheet.PivotTables(Tabla).ChangePivotCache ActiveWorkbook. _
        PivotCaches.Create(SourceType:=xlDatabase, SourceData:="origen" _
        , Version:=xlPivotTableVersion12)
Next n
Claro sirve cuando todas las dinámicas apuntan al mismo origen, no para dinámicas distintas. Pero se puede ajustar con algún comentario de origen actual, nuevo origen o mantener orige,
saludos.
Envidio tus puntos. Je je.
Disculpa que no pregunte nada pero no veo como poder comunicarme de otro modo.
End Sub