如何使用Excel VBA将单元格值传递到另一行的过滤条件？

Question

我有以下功能：

Sub GreaterI()
ActiveSheet.Range("$A$2:$AA$2006").AutoFilter Field:=9, Criteria1:=">1.25" _
    , Operator:=xlAnd
Range("A1").Select
End Sub

在触发时过滤第9列以仅显示大于1.25的值。

而不是1.25是硬编码的，我希望函数查看单元格B1的值。

我尝试过以下操作但没有成功：

Sub GreaterI()
ActiveSheet.Range("$A$2:$AA$2006").AutoFilter Field:=9, Criteria1:=">" + Range("B1").Value _
    , Operator:=xlAnd
Range("A1").Select
End Sub

有人可以帮忙吗？在此先感谢