Я хочу захватить сценарии, основанные на выборе слайсеров

Question

Я хочу захватить данные, которые я получаю на основе выбора из слайсеров с выбранными деталями значений слайсера

Мне удалось скопировать данные, но не значения среза

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Dim xSheet As Worksheet
    Dim lRow As Long
    Dim ws As Worksheet
    Set ws = ActiveWorkbook.Sheets("Sheet2")
    lRow = ws.Cells(Rows.Count, "A").End(xlUp).Row + 1
    Set xSheet = ActiveSheet
        If xSheet.Name = "Sheet1" Then
            xSheet.Range("A1:B5").Copy
            ws.Range("A" & lRow).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        End If
    Application.ScreenUpdating = True
End Sub

Получение значений среза вместе с данными