运行vba程序，提示1004错误

yzhfighting

代码如下：
Sub getdata()
'
' getdata Macro
'
' 快捷键: Ctrl+d
'
    Sheets("Sheet2").Activate
    Sheets("Sheet2").Range("A1:E36").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("Sheet3!Criteria"), CopyToRange:=Range("A4"), Unique _
        :=False
    ActiveWindow.SmallScroll Down:=-24
End Sub

运行提示：
运行时错误：“1004”
类range的AdvancedFilter 方法无效；

刚接触vba，请大侠指点；