Mounths Filtering

[asyamonique]

Private Sub UserForm_Initialize()
 
Dim y As Long
  With Me
     For y = -365 To 365
     .ComboBox4.AddItem Format(Date + y, "dd-mmm-yy")
        
     Next y
    
     If Hour(Time) < 6 Then
     .ComboBox4.Text = Format(Date - 1, "dd-mmm-yy")
       
     End If
     If Hour(Time) > 6 Then
      .ComboBox4.Text = Format(Date, "dd-mmm-yy")
      
     End If
  End With
  
 
End Sub

Good Day!
How can i change this code if im going to populate only the mnths in combo box. and with the code given below filtering the dates so how can i change this code for to filter mnths.

Private Sub CommandButton1_Click()
Sheet2.Select
 
Dim a, i As Long, ii As Long, b(), n As Long, myDate As Date
ListBox2.Clear
With ComboBox4
     If .Value = "" Then Exit Sub
     myDate = DateValue(.Value)
     If WorksheetFunction.CountIf(Range("a:a"), myDate) = 0 Then
          MsgBox "No Entry !"
          Exit Sub
     End If
     a = Range("a1", Range("a" & Rows.Count).End(xlUp)).Resize(, 3).Value
     For i = 1 To UBound(a, 1)
          If a(i, 1) = myDate Then
               n = n + 1: ReDim Preserve b(1 To 3, 1 To n)
               For ii = 1 To UBound(a, 2)
                    b(ii, n) = a(i, ii)
               Next
                   b(1, n) = Format$(a(i, 1), "dd-mmm-yy")
          End If
     Next
End With
With ListBox2
     .ColumnCount = 3
     .ColumnWidths = "60;420;30"
     .Column = b
End With
With Application
    Me.TextBox2.Value = .Sum(.Index(b, 3, 0))
End With
 
End Sub

Many Thanks