Заполнение ComboBox при инициализации UserForm

Private Sub btnIncoming_Click()
   'Показываем форму
   frmIncoming.Show
    'Показываем текущую дату
    frmIncoming.lblDateTime.Caption = Date
End Sub

Private Sub UserForm_Initialize()
Dim Cartriges(10) As String
Cartriges(1) = "1"
Cartriges(2) = "2"
Cartriges(3) = "3"
Cartriges(4) = "4"
Cartriges(5) = "5"
Cartriges(6) = "6"
Cartriges(7) = "7"
Cartriges(8) = "8"
Cartriges(9) = "9"
Dim bb(10) As Boolean
Dim Row As Integer
Dim i As Integer
       
    frmIncoming.cbCartrige.Clear 'чистим комбо-бокс
    For i = 1 To 9
    Row = 2
        Do While ActiveWorkbook.Worksheets("Base").Cells(Row, 1) <> ""
            If (Cartriges(i) = ActiveWorkbook.Worksheets("Base").Cells(Row, 5)) And ((ActiveWorkbook.Worksheets("Base").Cells(Row, 7) = "" And ActiveWorkbook.Worksheets("Base").Cells(Row, 3) <> "") Or (ActiveWorkbook.Worksheets("Base").Cells(Row, 10) = "" And ActiveWorkbook.Worksheets("Base").Cells(Row, 7) <> "")) Then
                bb(i) = True
                GoTo mark
            Else
                bb(i) = False
            End If
            
            
            Row = Row + 1
        Loop
mark:
    Next
    For i = 1 To 9
        If bb(i) = False Then
            frmIncoming.cbCartrige.AddItem Cartriges(i)
        End If
    Next
    
    
End Sub