过滤数据2个月

Question

我可以使用以下代码过滤上个月的数据：

ActiveSheet.Range("$A$1:$CV$39198").AutoFilter field:=12, Criteria1:= _
        xlFilterLastMonth, Operator:=xlFilterDynamic

但是我想弄清楚如何过滤掉前一个月的日期（例如：它现在是6月，我想过滤4月份的日期）然后下个月，7月，我想要它可以过滤五月的日期而无需更新编码。