Combobox mükerrer veri

[Excelexcellent]

Merhaba arkadaşlar. Combobox'a sayfa1 A sütunundan verileri alıyorum ancak, A sütununda alt alta kayıtlı verilerden 2 -3 veya daha fazla aynı kayıt var. Combobox da aynı kayıtlı verilerden sadece 1 tanesini almak istiyorum ama başaramadım.
Yardımcı olursanız sevinirim.

 

[Orion1]

Dim sat As Long, i As Long
sat = Cells(65536, "A").End(xlUp).Row
For i = 1 To sat
    If WorksheetFunction.CountIf(Range("A1:A" & i), Cells(i, "A").Value) = 1 Then
        ComboBox1.AddItem Cells(i, "A").Value
    End If
Next
If ComboBox1.ListCount > 0 Then ComboBox1.ListIndex = 0