плохо знаком с этим, но я постараюсь сделать мой вопрос простым для понимания.

У меня есть лист Excel с сводной таблицей, который я фильтрую по первому столбцу (имена торговых представителей) один за другим, а затем копирую вставленную отфильтрованную сводную таблицу на новый рабочий лист и сохраняю ее в качестве имени торгового представителя.

Можно ли заставить макрос перебрать фильтр первых столбцов на основе значений в таблице (Таблица1) и скопировать значения в новый лист? Пример макроса будет полезен.

Обновление - я до некоторой степени справился, но он копирует сводную таблицу оптом, а затем пытается сохранить файл с каждой строкой.

Sub Gen()

Dim PvtTbl As PivotTable
Set PvtTbl = ActiveSheet.PivotTables("PivotTable1")
Dim Field As PivotField
Set Field = ActiveSheet.PivotTables("PivotTable1").PivotFields("SPerson")
Dim PvtItm As PivotItem
Dim Range As Range
Dim i As Long
Dim var As Variant


Application.ScreenUpdating = False


For Each PvtItm In Field.PivotItems
    ActiveSheet.Range("$A$11").Select
    Selection.CurrentRegion.Select
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    ActiveWorkbook.SaveAs ("C:\" & ActiveSheet.Range("$B$2") & Format(Date, "yyyy - mm") & ".xlsx")
Next PvtItm


Application.ScreenUpdating = True


End Sub`

Где $ A $ 11 - это сводная таблица, а $ B $ 2 - имя продавца, под которым я хочу сохранить файл.