Как подсчитать количество строк у SlicerItem?

Question

[hidden_pingvin]

Проблема вытекает из предыдущего моего вопроса - Как правильно выстроить сводную таблицу в Excel? . Задача заключается в том, что нужно скопировать только значения с листа со срезом на новый лист, чтобы потом добавить пару строчек данных в конец каждого диапазона строк, соответствующего размеру SlicerItem.
Для этого я хочу перебрать в цикле SlicerItems, поочередно оставляя каждый не скрытым, и подсчитать количество строк, но этот вариант не получается.

Set sC = ActiveWorkbook.SlicerCaches(slicerName)
    With sC
        .ClearManualFilter
        For i = 1 To .SlicerItems.count
            Debug.Print .SlicerItems(i).Name
            For j = 1 To .SlicerItems.count
                If .SlicerItems(i).Name = .SlicerItems(j).Name Then
                    .SlicerItems(i).Selected = True
                    If j < .SlicerItems.count Then
                        j = j + 1
                    End If
                End If
                .SlicerItems(i).Selected = False
            Nextz
        Next
    End With

Сам срез:

Comments

[Максим Федоров]

уберите тег ООП, Ваш вопрос к нему не относиться