Фильтр по текущему кварталу

Здравствуйте, подскажите пожалуйста с проблемой.

использую фильтр в макросе такого типа

Sub 1()
Range("AN31:AN1670").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, _
Criteria1:="<=" & CDbl(DateSerial(Year(Date), Month(Date), 14))
End Sub

Задача - фильтровать вторым критерием или вместе с этип, <= текущего квартала/следующего квартала . В офис 2010 есть конечно автофильтр по текущему и следующему квартолу но нужно (<= определенного числа текущего квартала/следующего квартала) и (от определенного числа текущего квартала до определенного числа следующего квартала).

Зарарнее спасибо