Option Explicit

Private Sub ComboBox1_Change()
    Const NUM As Long = 4
    Dim r As Long, lr As Long, cnt As Long, k As Long, n As Long
    With ActiveSheet
        lr = .Cells(Rows.Count, "D").End(xlUp).Row
        With Me.ListBox1
            .Clear
            .ColumnCount = NUM
        End With
        For r = 8 To lr
            If Val(.Cells(r, "F").Value) = Val(ComboBox1.Value) Then
                Me.ListBox1.AddItem Empty
                Me.ListBox1.List(k, n) = .Cells(r, "D").Value
                n = n + 1
                cnt = cnt + 1
                If cnt Mod NUM = 0 Then n = 0: k = k + 1
            End If
        Next r
    End With
End Sub

Private Sub UserForm_Initialize()
    Dim i As Long
    For i = 1 To 6
        Me.ComboBox1.AddItem i
    Next i
End Sub