Sub MonthFilter()
Dim rng As Range: Set rng = ActiveSheet.Range("A:P")
Dim MyCriteria: MyCriteria = GetDatesInPeriodConst(month(Range("R1")))
On Error Resume Next
rng.Parent.ShowAllData
rng.AutoFilter field:=9, Criteria1:=MyCriteria, Operator:=xlFilterDynamic
rng.AutoFilter field:=8, Criteria1:=MyCriteria, Operator:=xlFilterDynamic
End Sub
Function GetDatesInPeriodConst(month As Long)
GetDatesInPeriodConst = 20 + month
End Function