Dim rng As Range
    Dim i As Long
    Dim LastRow As Long

    Me.BSComboBox1.Clear

    With Sheets("Colors")
        LastRow = .Cells(Rows.Count, "B").End(xlUp).Row

        For i = 2 To LastRow
            If .Cells(i, 2) <> vbNullString Then
                    Me.BSComboBox1.AddItem Cells(i, 1)
            End If
        Next
    End With


bu neden çalışmıyor
"Colors" sayfasının "B" sutununu alması gerekiyor değil mi

Cells(i, 1) 
eksik varmış
.Cells(i, 1)
olacakmış şu noktanın yaptığına bak sen