Фильтрация даты

Private Sub CommandButton1_Click()
    Windows("test.xlsm").Activate
 
    Dim m(1 To 12), i&
    Dim b(1 To 12)
    Dim d(1 To 12)
    For i = 1 To 12
        If Filter_date("CheckBox" & i) = True _
        Then m(i) = Filter_date("CheckBox" & i).Caption
        If i = 1 Or i = 3 Or i = 5 Or i = 7 Or i = 8 Or i = 10 Or i = 12 Then
            b(i) = 31
        Else
            If i = 4 Or i = 6 Or i = 9 Or i = 11 Then
                b(i) = 30
            Else
                b(i) = 28
            End If
        End If
        d(i) = m(i) & "/" & b(i) & "/2018"
    Next
    
    Range("A1:Y200000").AutoFilter 11, d, xlFilterValues
   
    
    Sheets("Tech").Select
    Range("A1").Select
    Unload Filter_date
End Sub

Range("A1:Y200000").AutoFilter 11, d, xlFilterValues

 Dim f(1 To 3), i&
    For i = 1 To 3
        If Filter("CheckBox" & i) = True _
        Then f(i) = Filter("CheckBox" & i).Caption  'i
    Next
    Range("A1:Y200000").AutoFilter 1, f, xlFilterValues

For i = 1 To 12
If Filter_date("CheckBox" & i) = True  Then
d(i)= Format(DateSerial(2018, i + 1, 1) - 1,"mmmm/dd/yyyy")
End If
Next i

Range("A1:Y200000").AutoFilter 11, d, xlFilterValues

Dim d$(1 To 12)
For i = 1 To 12
If Filter_date("CheckBox" & i) = True  Then
d(i) = DateSerial(2018, i + 1, 1) - 1
End If
Next i
Range("A1:Y200000").AutoFilter AutoFilter Field:=11, Criteria1:=d, Operator:=xlFilterValues

    Dim d$(1 To 12)
    Dim test As Integer
    test = 0
    For y = 1 To 4
        If Filter_date("CheckBox2" & y) = True Then
            test = test + 1
            For i = 1 To 12
                If Filter_date("CheckBox" & i) = True Then
                    d(i) = DateSerial(Filter_date("CheckBox2" & y).Caption, i + 1, 1) - 1
'                    d(i) = DateSerial(2018, i + 1, 1) - 1
        '            d(i) = Format(DateSerial(2018, i + 1, 1) - 1, "mm\/dd\/yyyy")
                End If
            Next i
        End If
    Next y
    Range("A1:H200000").AutoFilter Field:=5, Criteria1:=d, Operator:=xlFilterValues

    Dim d$(1 To 4, 1 To 12)
    Dim year As Integer
    For y = 1 To 4
        If Filter_date("CheckBox2" & y) = True Then
            year = Filter_date("CheckBox2" & y).Caption
            For i = 1 To 12
                If Filter_date("CheckBox" & i) = True Then
'                    d(i) = DateSerial(Filter_date("CheckBox2" & y).Caption, i + 1, 1) - 1
'                    d(i) = DateSerial(2018, i + 1, 1) - 1
                    d(y, i) = Format(DateSerial(year, i + 1, 1) - 1, "m/d/yyyy")
                End If
            Next i
        End If
    Next y
    Range("A1:H200000").AutoFilter Field:=5, Criteria1:=d, Operator:=xlFilterValues