Как выполнить циклический просмотр среза Excel для каждого элемента среза при сохранении результатов листа на другом листе?

Question

Я пытаюсь перебрать 1 слайсер для всех элементов, которые я хочу, чтобы получить значение из одной ячейки и вставить его на другой лист (при этом также захватывая имя элемента слайсера).Пожалуйста, помогите, я знаю, что мне нужен цикл, но я не могу заставить что-либо работать

Sub CtryFilter2 ()

Dim sC As slicerCache
Dim sI As slicerItem
Dim sIDummy As slicerItem
Dim i As Long
Dim l As Long

'application.ScreenUpdating=false

'Assign slicer to variable
Set sC = ActiveWorkbook.SlicerCaches("Slicer_CTRY_DESC")

'Initiate loop through each country in the slicer
sC.PivotTables(1).ManualUpdate = True
'sC.ClearManualFilter

With sC
For i = 1 To sC.SlicerCacheLevels.Count

    For Each sI In sC.SlicerCacheLevels(i).SlicerItems

    If i = 1 Then Sheets.Add.Name = sC.Name Else

        Sheets("Graph").Range("C2:R2").Copy
        Sheets(sC.Name).Range("b" & i).PasteSpecial xlPasteValues

    End
        'sC.ClearManualFilter

        'Create new tab and rename based on current selection
        'Sheets.Add.Name = sI.Value
        'Copy paste values from POS_DETAIL tab to the new tab
        Sheets("Graph").Range("C2:R2").Copy
        Sheets(sC.Name).Range("b" & i).PasteSpecial xlPasteValues
    Next sI

Далее я заканчиваю 'Набором для сбора мусора sC = Nothing End Sub *