VBA Добавить столбец как сводный фильтр

Question

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

До сих пор я мог сделать это очистить текущие фильтры, но я понятия не имею, как добавить фильтр.

Это то, что у меня есть до сих пор:

-> Кадровое агентство - это то место, где находится Pivot -> PivotT - это имя таблицы

    Dim ws As Worksheet
    Dim wsp As Worksheet
    Set ws = ActiveSheet
    Set wsp = ThisWorkbook.Worksheets("Agent staffing") 
    With wsp.PivotTables("PivotT").PivotFields("Login")
        .ClearAllFilters
        .PivotFilters.Add Type:=xlCaptionEquals, Value1:=ws.Columns("A")

    End With
End Sub

Любая помощь там? Я начинаю на VBA, поэтому многое еще не известно.

Спасибо.