When you filter by a certain month, the macro recorder will log something like the code below. But if there is no "1/31/2014" in the data, then it will error out. How could I change this code to filter for January regardless? 


ActiveSheet.Range("$A:$A").AutoFilter Field:=1, Operator:= _
        xlFilterValues, Criteria2:=Array(1, "1/31/2014")