Excel 使用VBA筛选具有动态值（>；=）的数据透视表

我用Excel处理一个问题已经有几天了，但找不到解决办法，因为我在Excel中的VBA技能很低，在论坛上找不到类似的（或我能理解的）东西。所以我希望这里有人能帮助我：D

如何根据动态值（来自单元格E2，而不是数据透视的一部分）在数据透视表中自动应用过滤器（通过宏）

例如，如果E2=3，那么我在透视表过滤器（H1）中选择一切>=3并刷新它

到目前为止，我能够刷新透视表，并使用宏记录器在过滤器中启用多重选择，但不能根据动态数据选择分数。见下文：

Sub Macro1()
'
' Macro1 Macro
'
ActiveWorkbook.RefreshAll
Dim Score As String
Score = Range("E2").Value


Range("H1").Select
    ActiveSheet.PivotTables("PivotTable1").PivotSelect "Score[All]", xlDataAndLabel _
        , True
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Score"). _
        EnableMultiplePageItems = True
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Score")
        .PivotItems(Score).Visible = True

End With
 
ActiveWorkbook.RefreshAll

End Sub