Добавить новую строку в таблицу в Excel на основе настроек слайсера

Question

У меня практически нет опыта работы с VBA, но мне нужна помощь, чтобы получить следующее:

У меня есть таблица, в которую с Click () должна быть добавлена ​​строка со значениями Selected Slicer. На моем рабочем листе 5 слайсеров, и мне нужно будет вернуть все 5 вариантов. (Если слайсер не выбран, в окне сообщения должно быть указано «Выбрать слайсеры».

Обратите внимание, что это слайсер таблицы, а не PivotTable

. На данный момент у меня есть следующее :

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False
'Modified 1-16-18 1:45 AM EST

Dim i As Long
Dim Lastrow As Long
Dim Project As String
Dim Werkpost As String
Dim Team As String
Dim SlicerV

Lastrow = Sheets("Facade-Materiaal").Cells(Rows.Count, "A").End(xlUp).Row + 1

    Project = "VALUE OF SLICER Slicer_Project11"
    Werkpost = "VALUE OF SLICER Slicer_Project12"
    Team = "VALUE OF SLICER Slicer_Project13"
    Zone = "VALUE OF SLICER Slicer_Project14"
    LS = "VALUE OF SLICER Slicer_Project15"

    With Sheets("Facade-Materiaal")
        .Cells(Lastrow, 1).Value = Project
        .Cells(Lastrow, 2).Value = Werkpost
        .Cells(Lastrow, 3).Value = Team
        .Cells(Lastrow, 4).Value = Zone
        .Cells(Lastrow, 5).Value = LS

    End With
Application.ScreenUpdating = True
End Sub

Кажется, я не могу заполнить значения в квадратных скобках. Любая помощь?

Робб