Autofiltro entre excel

Tengo una consulta estoy trabajando en una planilla excel con autofiltros la cual es controlada por una macro

el botón de búsqueda

tiene varias opciones según lo que este lleno, el primero busca según un nombre de producto, el segundo vuelve a filtrar según el mes, el tercero según dia, pero el último debiera ser entre dos números no se como indicar que los criterios saldrán desde un combobox, llamados dia1 y dia2

al final arroja en un listbox todo, pero no filtrado "NO SE COMO SE PUEDE HACER"

ademas en tres textbox los cuales se llenan con una suma de lo filtrado, esto lo hice utilizando una formula en la hoja37 =subtotales(9;h1;h350) y las otras dos en la columna k y j

If ComboBox1 <> "" Then
ActiveSheet.Range("$A$1:$WVS$5000").AutoFilter Field:=5, Criteria1:=ComboBox1
End If

If MES2 <> "" Then
ActiveSheet.Range("$A$1:$WVS$5000").AutoFilter Field:=2, Criteria1:=MES2
End If

If DIA1 <> "" Then
ActiveSheet.Range("$A$1:$WVS$5000").AutoFilter Field:=1, Criteria1:=DIA1
End If

If DIA2 <> "" Then
If DIA1 < DIA2 Then
ActiveSheet.Range("$A$1:$WVS$271").AutoFilter Field:=1, Criteria1:=">=1", _
Operator:=xlAnd, Criteria2:="<=3)"
End If
End If

Me.ListBox1.RowSource = "A1:h5000"

TextBox3 = Hoja37.Cells(1, 10)
TextBox5 = Hoja37.Cells(1, 11)
TextBox4 = Hoja37.Cells(1, 12)