运行时错误1004.过滤数组

Question

我正在尝试基于数组进行过滤。但是，当我运行代码时，我得到一个运行时错误1004.在我的最后一行代码中，Range类的AutoFilter方法失败了。任何人都可以解释如何纠正这个？谢谢！

  Dim n As Long
    Dim r As Range

    With Sheets("Filter")
        n = .Cells(Rows.Count, "A").End(xlUp).Row
        ReDim ary(1 To n)
        For i = 1 To n
            ary(i) = .Cells(i, 1)
        Next i
    End With


    Worksheets("TempEE").Range("A1:AE100000").AutoFilter , Field:=8, Criteria1:=ary, Operator:=xlFilterValues