Excelente mi Amigo!!

Asi es como la queria.

Se puede hacer que lo actualice para cada campo, para cualquier tabla nueva que se crea?? desde la tabla 1

Saludos

si tienes varias tablas, en la hoja, emplearía un bucle que las recorriese todas.

para eso defino una variable de objeto de tipo PivotTable, que emplearé en un bucle For Each que recorra todas las tablas dinámicas de la hoja.

he añadido también una condición para no actualizar la tabla 1,

por ejemplo, quedaría algo así

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
    ' este evento se produce cuando se actualiza una tabla dinámica
    ' esto incluye cuando se cambia el valor del campo de página
    Const Tabla1 = "Nombre de tu tabla 1"
    Const CampoPagina = "tu campo de página"
    
    Dim tabla As PivotTable
    
    If Target.Name = Tabla1 Then
        ' ponemos los campos de página del resto de tablas iguales a los de la tabla 1
        For Each tabla In ActiveSheet.PivotTables
            If tabla.Name <> Tabla1 Then
            ' este if es para no aplicarlo a la propia tabla 1
              tabla.PivotFields(CampoPagina).CurrentPage _
                = Target.PivotFields(CampoPagina).CurrentPage.Value
            End If
        Next
    End If
End Sub
 

Para todos estos casos en que quieres aplicar lo mismo a todas las tablas, o a todas las hojas de libro, o a todos los gráficos de una hoja, etc. creo que lo mejor es emplear un bucle For Each. Así, además, la macro sigue siendo válida cuando añadas nuevos elementos, por ejemplo en tu caso, la macro funcionará siempre aunque añadas más tablas dinámicas.

------
Ya sé Excel, pero necesito más

me resolviste la vida

muchiiiiiiiiiiiiiiiiiiiiiiiisimas gracias