Hayırlı cumalar

Sub cmbFill(cmb As ComboBox, cIndex)
    Dim i As Long
    For i = 1 To databaseSheet.Range("A1000").End(xlUp).Row
        cmb.AddItem databaseSheet.Cells(i, cIndex)
        cmb.List(cmb.ListCount - 1, cIndex) = databaseSheet.Cells(i, cIndex + 1)
    Next i
End Sub

bu kod ile listeyi alabiliyoruz ama istediğim şu
alfabetik sıralanmış
filtrelenmiş
her elemanın bir kez listelendiği
şekilde liste nasıl alabilirz