Excel VBA 高级过滤器

Question

我正在尝试使用以下代码将唯一数据从一张纸复制到另一张纸

RANGESTR = "A11"
Sheets("DATA").Columns("D:D").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheets("CUSTOM SUMMARY").Range(RANGESTR), Unique:=True

当我运行宏时，

运行时错误“1004”

声明“提取范围的字段名称无效或缺失”即将到来。 而相同的代码在我编写的另一个宏中工作。