vba combobox list on Userform has blanks

[KDS14589]

This code works fine but my data has blanks, and this code shows them. What can I add to the code to remove them from showing up in the box?

Private Sub UserForm_Initialize()
Dim v, e
With Sheets("domain.cards").Range("c4:c500")
    v = .Value
End With
With CreateObject("scripting.dictionary")
    .comparemode = 1
    For Each e In v
        If Not .exists(e) Then .Add e, Nothing
        
    Next
    If .Count Then Me.Combo_search_status.List = Application.Transpose(.keys)
End With