Pivot tables - Multiple filters across 2 tables

[shoesterix]

Dear Experts,
Kindly help with the situation below.
I currently have 2 pivot tables (PT1 and PT2) on the same sheet (Sheet 1).
PT1 has about 10 filters, whereas PT2 has 5 filters. I need a macro to run whenever the filters which are the same across the pivot tables such that the selections in the tables are the same.

I.e. User selects value in PT1 and that same value is selected in the same filter in PT2.


For simplicity, the filters have the same name across the 2 tables

Below are my rough ideas. Any help is highly valued.

Code:

 
Sub test()

Dim pt, pt1 As PivotTable

Dim r As String

If r = "Sub_Region" Or "Country (ship-to)" Then

    For Each pt In Worksheets("LTM Chart")
        If pt.PivotFields(r).Orientation = xlPageField Then
            pt1.PivotFields(r).CurrentPage = pt.PivotFields(r)
        End If
    Next
End If
    
End Sub