Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)

With Application
.EnableEvents = False
.ScreenUpdating = False
End With
On Error Resume Next
ActiveSheet.PivotTables("Сводная таблица3").PivotFields("Поставщики").CurrentPage = "(All)"
i = 0
ActiveSheet.PivotTables("Сводная таблица4").PivotFields("Поставщики").CurrentPage = "(ALL)"
For Each x In ActiveSheet.PivotTables("Сводная таблица2").PivotFields("Поставщики").PivotItems
i = i + 1
ActiveSheet.PivotTables("Сводная таблица3").PivotFields("Поставщики").PivotItems(i).Visible = x.Visible
ActiveSheet.PivotTables("Сводная таблица4").PivotFields("Поставщики").PivotItems(i).Visible = x.Visible
Next x
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub