Sub test() ActiveSheet.PivotTables("PivotTable1").PivotFields("склад").CurrentPage = _ Sheets("отчет").Range("G4").Value End Sub