Automatically control a pivot table.

Option Explicit
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
'// synchronize the page fields on both pivots
    Dim s$, ptA As PivotTable, ptB As PivotTable
 
    With Me.PivotTables
        Set ptA = .Item(1)
        Set ptB = .Item(2)
    End With
 
    If ptA.PageFields(1).CurrentPage _
    <> ptB.PageFields(1).CurrentPage Then
        Application.EnableEvents = False
            If Target.Name = ptA.Name Then
                s = ptA.PageFields(1).CurrentPage
                ptB.PageFields(1).CurrentPage = s
            Else
                s = ptB.PageFields(1).CurrentPage
                ptA.PageFields(1).CurrentPage = s
            End If
        Application.EnableEvents = True
    End If
End Sub

Dim s As String
 
 s = Sheet1.Range("D11")
    
    ActiveSheet.PivotTables("PivotTable1").PivotFields("type").CurrentPage = s