Excel VBA Autofilter error when using criteria2

Question

Excel 2016 fr 32 bits, Windows 10

I want to filter dates for the month of january. The macro recorder gives:

    ActiveSheet.Range("$A$1:$A$100")