Предполагая, что вы даже не знаете, с чего начать, я бы посоветовал сначала использовать макрос-рекордер для создания слайсера и выбрать некоторые элементы.
Вы можете использовать что-то вроде этого:
ActiveWorkbook.SlicerCaches("NameFromSlicer").SlicerItems("NameFromItem").Selected = True
Для выбора определенного элемента в ранее созданном слайсере.
А также
ActiveWorksheet.PivotTables("NameFromPT").Slicers.Add
Чтобы добавить слайсер. Обратите внимание, что вы должны будете передать параметры методу «Добавить».