Есть ли способ установить фильтры в сводной таблице в Excel на основе формулы в отдельной рабочей таблице?

Question

Для фильтра мне нужно выбрать 4 элемента, которые необходимо выбрать на основе данных, введенных в лист администратора в электронной таблице, которая затем используется в формуле, которая в ячейке C2 как таковая

= IF (B2 <10, "[Wk0" & B2 & "" & B $ 15 & "]", "[Wk" & B2 & "" & B $ 15 & "]"). </p>

VBA, который я пытаюсь использовать, но не совсем работа такова:

Sub Macro1 ()

Dim rngRange1 As Range

Set rngRange1 = Worksheets("Admin").Range("C2")

Dim rngRange2 As Range

Set rngRange2 = Worksheets("Admin").Range("C3")

Dim rngRange3 As Range

Set rngRange3 = Worksheets("Admin").Range("C4")

Dim rngRange4 As Range

Set rngRange4 = Worksheets("Admin").Range("C5")

Sheets("GIfLCommsQuotesWkly").Select
ActiveSheet.PivotTables("PivotTable1").PivotFields( _
    "[ConversionDate].[Week].[Week]").VisibleItemsList = Array( _
    "[ConversionDate].[Week]." & rngRange1, "[ConversionDate].[Week]." & rngRange2, _
    "[ConversionDate].[Week]." & rngRange3, "[ConversionDate].[Week]." & rngRange4)

End Sub

Я очень новичок в VBA, поэтому любая помощь приветствуется