按特定单元格中的值进行过滤

我有一个Excelmacros，按特定值过滤数据。 我使用的代码如下。

Sheet6.Select ActiveSheet.Range("$A$1:$E$2000").AutoFilter Field:=1, Criteria1:="2249" 

我希望它筛选单元格中的值而不是硬编码的“2249”。 我已经尝试了像RANGE和CELLS这样的单元格引用，但是没有奏效。

任何帮助将不胜感激。