Запись макроса для копирования значения ячейки в фильтр отчета сводной таблицы

Question

Я хочу записать макрос для автоматизации процесса фильтрации сводной таблицы с использованием ссылки на ячейку, как описано на фотографии. Я видел похожие сообщения, но я новичок, поэтому пока могу изменять только записанные макросы.

Записанный макрос не работает. Ниже приведен код VBA, который я не знал, как исправить, чтобы он заработал. Я пробовал гуглить, но ничего не нашел. Я вижу, что скопированная ячейка была записана как константа, и я попытался изменить ее на ссылку, но не сработало.

Кто-нибудь знает, как исправить это, а затем включить фильтрацию для нескольких значений? Спасибо!

Sub Macro4()    
    Range("F8").Select

    Selection.Copy

    ActiveSheet.PivotTables("PivotTable2").PivotFields("Program #").ClearAllFilters

    ActiveSheet.PivotTables("PivotTable2").PivotFields("Program #").CurrentPage = _
        "1234"
End Sub