Sub filterItems()
Dim sh As Worksheet
Dim pt As PivotTable
Dim pi As PivotItem
Dim var1, var2, var3, var4, var5 As String
Set sh = ActiveSheet
var1 = Worksheets(sh.Name).Cells(4, 7).Value
var2 = Worksheets(sh.Name).Cells(5, 7).Value
var3 = Worksheets(sh.Name).Cells(6, 7).Value
var4 = Worksheets(sh.Name).Cells(7, 7).Value
var5 = Worksheets(sh.Name).Cells(8, 7).Value
For Each sh In ThisWorkbook.Worksheets
For Each pt In sh.PivotTables
For Each pi In pt.PivotFields("Items").PivotItems
Select Case pi.Name
Case var1, var2, var3, var4, var5
pi.Visible = True
Case Else
On Error Resume Next
pi.Visible = False
End Select
Next pi
Next pt
Next sh
End Sub

Sub Test2()
  Dim pt As PivotTable, pf As PivotField, pi As PivotItem, str As String, v, t As Double
  t = Timer
  Set pt = ActiveSheet.PivotTables(1)
  pt.ManualUpdate = True
  Set pf = pt.PivotFields("Items")
  
  On Error Resume Next
  str = Chr(1)
  For Each v In Range("tbl_result").Value
    Set pi = Nothing
    Set pi = pf.PivotItems(v)
    If Not pi Is Nothing Then
      If pi.Visible = False Then pi.Visible = True
      str = str & v & Chr(1)
    End If
  Next
  
  ' удаляем лишнее
  For Each pi In pt.PivotFields("Items").VisibleItems
    If InStr(1, str, Chr(1) & pi.Name & Chr(1)) = 0 Then
      pi.Visible = False
    End If
  Next
  
  On Error GoTo 0
  pt.ManualUpdate = False
  Debug.Print Timer - t
End Sub

If object.property<>value Then object.property=value

object.property=value