Qué tal chicos!, ¿Cómo cargar en un combobox registros únicos y en orden alfabético?

Con lo siguiente agregas datos al combo, únicos y ordenados.

Private Sub UserForm_Activate()
'por.DAM
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
    agregar ComboBox1, Cells(i, "A")
Next
End Sub
Sub agregar(combo As ComboBox, dato As String)
'por.DAM agrega los item únicos y en orden alfabético
For i = 0 To combo.ListCount - 1
    Select Case StrComp(combo.List(i), dato, vbTextCompare)
        Case 0: Exit Sub 'ya existe en el combo y ya no lo agrega
        Case 1: combo.AddItem dato, i: Exit Sub 'Es menor, lo agrega antes del comparado
    End Select
Next
combo.AddItem dato 'Es mayor lo agrega al final
End Sub

Cambia ComboBox1 por el nombre de tu combobox y "A" por la columna en donde tienes tus datos.

Saludos. Dante Amor
Si es lo que necesitas.