Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim OtherPivot As PivotTable
Dim ThisPivot As PivotTable
Dim itm As PivotItem

If Target.Name <> "ЭтоМояСводная" Then Exit Sub

Set ThisPivot = Target
Set OtherPivot = Sheets( 3 ).PivotTables("ЭтоДругая")

For Each itm In ThisPivot.PivotFields("Товары").PivotItems
    If itm.Visible Then
        OtherPivot.PivotFields("Товары").PivotItems(itm.Name).Visible = True
    Else
        OtherPivot.PivotFields("Товары").PivotItems(itm.Name).Visible = False
    End If
Next
End Sub