Ultima tarea, inconclusa

Private Sub UserForm_Initialize()
ComboBox1.AddItem "Lunes"
ComboBox1.AddItem "Martes"
ComboBox1.AddItem "Miercoles"
ComboBox1.AddItem "Jueves"
ComboBox1.AddItem "Viernes"
ComboBox1.AddItem "Sabado"
ComboBox1.AddItem "Domingo"
ComboBox2.AddItem "7 - 8"
ComboBox2.AddItem "8 - 9"
ComboBox2.AddItem "9 - 10"
ComboBox2.AddItem "10 - 11"
ComboBox2.AddItem "11 - 12"
ComboBox2.AddItem "12 - 13"
ComboBox2.AddItem "13 - 14"
ComboBox2.AddItem "14 - 15"
ComboBox2.AddItem "15 - 16"
ComboBox2.AddItem "16 - 17"
ComboBox2.AddItem "17 - 18"
ComboBox2.AddItem "18 - 19"
ComboBox2.AddItem "19 - 20"
ComboBox2.AddItem "20 - 21"
ComboBox2.AddItem "21 - 22"
ComboBox2.AddItem "22 - 23"
End Sub

Private Sub CommandButton1_Click()
Dim nombre As String
Dim longi As Integer
Dim horario(1 To 16, 1 To 100, 1 To 100) As String
Dim dia(0 To 7) As String
Dim personas() As String
fil = Range(RefEdit1.Value).Row
col = Range(RefEdit1.Value).Column
n = Range(RefEdit1.Value).Count
dia(0) = Trim(Cells(fil + i - 1, col))
dia(1) = "Lunes"
dia(2) = "Martes"
dia(3) = "Miercoles"
dia(4) = "Jueves"
dia(5) = "Viernes"
dia(6) = "Sabado"
dia(7) = "Domingo"
f = 0
Do Until Cells(fil + f, col) = Empty
f = f + 1
Loop
c = 0
Do Until Cells(fil, col + c) = Empty
c = c + 1
Loop
ReDim personas(1 To f) As String

m = 16
'se tiene que agarrar desde la 1ra persona o solo la 1ra persona, y automaticamente deberia salir todas las demas
For i = 1 To f 'desde aca me va a salir todo las personas y horarios, los horarios del mas tarde al mas temprano, pero no se como hacer que concuerda con los que me pidan para que aparezca en los listbox
    personas(i) = Trim(Cells(fil + i - 1, col))
    For j = 1 To c
        nombre = Trim(Cells(fil + i - 1, col + j))
        longi = Len(nombre)
        For l = 1 To m
            If longi = 0 Then
                horario(l, i, j) = 0
            Else
                horario(l, i, j) = Right(nombre, longi - InStrRev(nombre, ", ", -1))
                If longi = Len(horario(l, i, j)) Then
                    Exit For
                Else
                    nombre = Left(nombre, longi - Len(horario(l, i, j)) - 1)
                    longi = Len(nombre)
                End If
                'aca deberia poner el codigo que me diga que si esta dentro del rango, ponga a la persona donde corresponda
            End If
        Next
    Next
Next
End Sub