Option Explicit

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Set wsData = Лист3
Dim OtherPivot As PivotTable
Dim ThisPivot As PivotTable
Dim itm As PivotItem
Dim itmx As PivotItems
Dim fld As PivotField

If Target.Name <> "СводнаяТаблица1" Then Exit Sub

Set ThisPivot = Target
Set OtherPivot = wsData.PivotTables("СводнаяТаблица2")

Application.ScreenUpdating = False

For Each fld In ThisPivot.DataFields
              If fld.Name = "01.02" Then
        OtherPivot.DataFields("01.02").Visible = True
 Next
 
Application.ScreenUpdating = True

For Each fld In ThisPivot.DataFields
    If fld.Function = xlSum Then
         OtherPivot.fld.Function = xlSum
Next

Application.ScreenUpdating = True


Set itmx = ThisPivot.PivotFields("Товар").PivotItems
If OtherPivot.PivotFields("Товар").Orientation = xlPageField Then OtherPivot.PivotFields("Товар").CurrentPage = "(Все)"
For Each itm In itmx
    If itm.Visible Then
        OtherPivot.PivotFields("Товар").PivotItems(itm.Name).Visible = True
    Else
        OtherPivot.PivotFields("Товар").PivotItems(itm.Name).Visible = False
    End If
Next
Application.ScreenUpdating = True


End Sub