Merhaba.
Office365 e geçerseniz en güzel faydalarından biri için örnek kod yaptım.
Benyersiz ve sıralar.Bunu combolarda listboxlarda sayfalarda vs.. kullanılır.
Normal ofis için bir sürü kod yazmak gerekecek ve daha yavaş çalışır gerçi ado ile olur ama bence böyle daha kullanışlı.

Adamlar formülleri bile acayip yapmışlar


https://resim.accesstr.net/do.php?img=11097

Sub BenzersizVeSiralamali()

    Dim son As Long, benzersiz, sirala

    With ThisWorkbook.Sheets("Sayfa1")

        .Range("C2:C" & Rows.Count).Clear

        .ListBox1.Clear

        .ComboBox1.Clear

        If son = 1 Then Exit Sub

        son = .Cells(Rows.Count, 1).End(3).Row

        benzersiz = WorksheetFunction.Unique(.Range("A2:A" & son))

        sirala = WorksheetFunction.Sort(benzersiz)

      .Range("C2").Resize(UBound(sirala)).Value = sirala

        .ListBox1.List = sirala

        .ComboBox1.List = sirala

    End With

End Sub