Boa tarde!!

Tente

Private Sub UserForm_Initialize()
Dim Rng As Range
Dim Dn As Range
Dim Dic As Object
Set Rng = Range(Range("A1"), Range("A" & Rows.Count).End(xlUp))
    Set Dic = CreateObject("scripting.dictionary")
        Dic.CompareMode = vbTextCompare
For Each Dn In Rng
  If Not Dn = vbNullString Then Dic(Dn.Value) = Empty
Next
With Me.ComboBox
    .RowSource = ""
    .List = Dic.Keys
    .ListIndex = 0
End With
End Sub

Att

Ok,resultou.
Valeu!

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.