Как удалить одинаковые значения в Combobox

N = 2
While N <> 530
      N = N + 1
Wend
    For i = 2 To N + 1
    UserForm1.ComboBox1.AddItem Worksheets("Контрагенты").Cells(i, 3).Value
    Next i

Sub Макрос1()
Dim i As Long
For i = 2 To 100
    If Range("A2:A" & i - 1).Find(What:=Cells(i, 1), LookIn:=xlValues, LookAt:= _
        xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, MatchCase:= _
        False, SearchFormat:=False) Is Nothing Then
    
        'Добавляем в ComboBox запись.
        
    End If
Next i
End Sub

Dim PrevIndex As Long 'èíäåêñ â êîìáîáîêñ íà ïîñëåäíèé íåóäàëåííûé ýëåìåíò
PrevIndex = ComboBox1.ListCount - 1
For b = ComboBox1.ListCount - 2 To 0 Step -1
    If ComboBox1.List(b) = ComboBox1.List(PrevIndex) Then
        ComboBox1.RemoveItem b 'ñîâïàäàåò ñ ïðåäûäóùèì, óäàëèòü.
        PrevIndex = PrevIndex - 1 'Ïîñëå óäàëåíèÿ ýëåìåíò ñìåñòèëñÿ ââåðõ, íàäî îáíîâèòü óêàçàòåëü
    Else
PrevIndex = b 'Íå ñîâïàäàåò ñ ïðåäûäóùèì. Îí ñòàíåò íîâûì ïðåäûäóùèì.
    End If
Next b

Public Sub www()
    Dim a, i&
    a = [a1].CurrentRegion.Columns(1)
    With CreateObject("scripting.dictionary")
        For i = 1 To UBound(a): .Item(a(i, 1)) = "": Next
        ComboBox1.List = .keys
    End With
End Sub

Sub Add_Item(Cmb as ComboBox, Ite As String)
      n%=Cmb.Listcount
      for i%=0 to n%-1
          If Cmb.List(i%)=Ite then
             q%=-1
             Exit for
          end if
      Next i%
      if q%=0 then Cmb.Additem Ite
End Sub

Sub Add_Item(Cmb As ComboBox, Ite As String)
    On Error Resume Next
    a& = Application.VLookup(Ite, Cmb.List, 1, 0)
    If Err Then Cmb.AddItem Ite
End Sub