在macros中的date过滤问题

我需要能够运行一个macros来过滤一列,以显示今天的date之前的所有date。

这是我到目前为止,但是由于某些原因,当我运行macros时,它不会返回任何内容:

ActiveSheet.Range("$A$6:$K$2815").AutoFilter Field:=7, Criteria1:=CStr("<" & CDate(Format(Now(), "DD/MM/YY"))), Operator:=xlAnd End Sub 

任何人都知道为什么这不工作,如何解决它?