Sub Фильтр1()
Application.ScreenUpdating = False
Set pvt = ActiveSheet.PivotTables("СводнаяТаблица2")
pvt.ManualUpdate = True
Set pvtField = pvt.PivotFields("ФИО")
pvtField.ClearAllFilters
pvtField.EnableMultiplePageItems = True
arr = Worksheets("Нужно выбрать").[a1].CurrentRegion
With CreateObject("Scripting.Dictionary")
        .CompareMode = 1
        For Each x In arr
            .Item(x) = Empty
        Next x
        For Each pvtItem In pvtField.PivotItems
            If Not .Exists(pvtItem.Value) Then pvtItem.Visible = False
        Next
End With
pvt.ManualUpdate = False
Application.ScreenUpdating = True
End Sub

Worksheets("Сводная").Protect Password:="123", Contents:=True, Scenarios:= _
        True, AllowFiltering:=True, AllowUsingPivotTables:=True