With pt.PivotFields(arrField(1, f))

Sub ОбновлениеСводной()
'Шаг 1: Объявляем переменные
    Dim ws As Worksheet
    Dim pt As PivotTable, crit, i&, f&, it As PivotItem, arrField
    Dim odic As Object
    With Application
        .ScreenUpdating = False
        .Calculation = xlCalculationManual
    End With
    arrField = Лист2.Range("X4:Y4").Value
    crit = Лист2.Range("X5:Y14").Value
    'Шаг 2: Запускаем цикл через каждый лист книги
    For Each ws In ThisWorkbook.Worksheets
        'Шаг 3: Запускаем цикл через все сводные таблицы
        For Each pt In ws.PivotTables
            For f = 1 To UBound(arrField, 2)
                Set odic = CreateObject("Scripting.Dictionary")
                For i = 1 To UBound(crit)
                    If crit(i, f) <> "" Then odic(FDynVal(crit(i, f))) = FDynVal(crit(i, f))
                Next i
                With pt.PivotFields(arrField(1, f))
                    .ClearAllFilters
                    If odic.Count > 0 Then
                        For Each it In .PivotItems
                            If odic.Exists(it.Value) Then .PivotItems(it.Value).Visible = True Else .PivotItems(it.Value).Visible = False
                        Next it
                    End If
                End With
            Next f
        Next pt
    Next ws
    With Application
        .Calculation = xlCalculationAutomatic
        .ScreenUpdating = True
    End With
End Sub
Public Function FDynVal(FrmContrVal)
If Len(FrmContrVal & "") = 0 Then
    FDynVal = ""
Else
    Select Case VarType(FrmContrVal)
    Case 5
        FDynVal = CStr(FrmContrVal)
    Case 8
        FDynVal = FrmContrVal
    Case 7
        FDynVal = Format(FrmContrVal, "m\/d\/yyyy")
    End Select
End If
End Function



PivotFields(arrField(1, f))

PivotFields("[имя таблицы].[имя группы].[" & arrField(1, f) & "]")

arrField = Лист2.Range("Y4").Select
    crit = Лист2.Range("Y5:Y14").Value

With pt.PivotFields("[Товар].[_Код товара].[" & arrField(1, f) & "]")

For f = 1 To UBound(arrField, 2)

arrField = Лист2.Range("X4:Y4").Value
    crit = Лист2.Range("X5:Y14").Value

With pt.PivotFields("[Товар].[_Код товара].[" & arrField(1, f) & "]")

                        For Each it In .PivotItems
                            If odic.Exists(it.Value) Then .PivotItems(it.Value).Visible = True Else .PivotItems(it.Value).Visible = False
                        Next it

arrField = Лист2.Range("Y4").Select

Sub SKU_2()

Sheets("Куб1").Select

'Вводим переменную КОЛИЧЕСТВА СТРОК ПО СКЮ и считаем количество не пустых строк для дальнейших циклов
Dim CountRowSKU As Long
    CountRowSKU = Cells(Rows.Count, 2).End(xlUp).Row - 2
    
'Вводим переменную КОЛИЧЕСТВА СТРОК ПО БЮ и считаем количество не пустых строк для дальнейших циклов
Dim CountRowBU As Long
    CountRowBU = Cells(Rows.Count, 5).End(xlUp).Row - 2

'Для проверки количества строк выводим сообщения (убрать комментирование)
'MsgBox CountRowSKU
'MsgBox CountRowBU

'Далее все относительно СКЮ
'Проверяем наличие в строках СКЮ (если СКЮ нет, то переменная = -1, см. выше)
If CountRowSKU <> -1 Then
Sheets("Куб1").Select

'Вводим переменную массива с неопределенным размером
Dim ArrSKU()
'Определяем размер с помощью переменной
ReDim ArrSKU(0 To CountRowSKU)

'Вводим переменную для индексации
Dim SKU As Integer

'Определяем количество итераций - столько же, сколько и кодов
    For SKU = 0 To CountRowSKU
'Определяем значения массива по циклу
        ArrSKU(SKU) = "[Товар].[_Код товара].&[" & Range("I" & SKU + 2).Value & "]"
    Next SKU

'Осуществляем выборку из куба, где значениями будут данные из массива
Sheets("Куб1").Select
    ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields( _
        "[Товар].[_Код товара].[_Код товара]").VisibleItemsList = ArrSKU
End If

'Далее все относится к БЮ. Аналогично СКЮ
If CountRowBU <> -1 Then
Sheets("Куб1").Select
Dim ArrBU()
ReDim ArrBU(0 To CountRowBU)
Dim BU As Integer

    For BU = 0 To CountRowBU
        ArrBU(BU) = "[Канал продаж].[Канал продаж].&[" & Range("J" & BU + 2).Value & "]"
    Next BU

'For BU = 0 To 2
'MsgBox ArrBU(BU)
'   Next BU

Sheets("Куб1").Select
    ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields( _
        "[Канал продаж].[Канал продаж].[Канал продаж]").VisibleItemsList = ArrBU
End If

Sheets("Куб1").Select

End Sub


ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields( _
        "[Товар].[_Код товара].[_Код товара]").VisibleItemsList = ArrSKU

Sub ОбновлениеСводной()
'Шаг 1: Объявляем переменные
    Dim ws As Worksheet
    Dim pt As PivotTable, crit, i&, f&, it As PivotItem, arrField
    Dim odic As Object
    With Application
        .ScreenUpdating = False
        .Calculation = xlCalculationManual
    End With
    arrField = Лист2.Range("X4:Y4").Value
    crit = Лист2.Range("X5:Y14").Value
    'Шаг 2: Запускаем цикл через каждый лист книги
    For Each ws In ThisWorkbook.Worksheets
        'Шаг 3: Запускаем цикл через все сводные таблицы
        For Each pt In ws.PivotTables
            For f = 1 To UBound(arrField, 2)
                Set odic = CreateObject("Scripting.Dictionary")
                For i = 1 To UBound(crit)
                    If crit(i, f) <> "" Then odic("[Товар].[_Код товара].[" & FDynVal(crit(i, f) & "]")) = "[Товар].[_Код товара].[" & FDynVal(crit(i, f) & "]")
                Next i
                With pt.PivotFields("[Товар].[_Код товара].[" & arrField(1, f) & "]")
                    .ClearAllFilters
                    If odic.Count > 0 Then
                        For Each it In .PivotItems
                            If odic.Exists(it.Value) Then .PivotItems(it.Value).Visible = True Else .PivotItems(it.Value).Visible = False
                        Next it
                    End If
                End With
            Next f
        Next pt
    Next ws
    With Application
        .Calculation = xlCalculationAutomatic
        .ScreenUpdating = True
    End With
End Sub
Public Function FDynVal(FrmContrVal)
If Len(FrmContrVal & "") = 0 Then
    FDynVal = ""
Else
    Select Case VarType(FrmContrVal)
    Case 5
        FDynVal = CStr(FrmContrVal)
    Case 8
        FDynVal = FrmContrVal
    Case 7
        FDynVal = Format(FrmContrVal, "m\/d\/yyyy")
    End Select
End If
End Function

With pt.PivotFields("[Товар].[_Код товара].[" & arrField(1, f) & "]")

CountRowBU = Cells(Rows.Count, 7).End(xlUp).Row - 6

ArrSKU(SKU) = "[Заказчик].[_Код заказчика].&[" & Range("G" & SKU + 6).Value & "]"

ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields( _
        "[Товар].[_Код товара].[_Код товара]").VisibleItemsList = ArrSKU