Combobox listesini sıralama

[inflexible]

Selamlar;
ekte bulunan örnek dosyada combo box ta bulunan isimleri belli kurala göre eklemek istiyorum.
Örnek: b10 hücresi dolu ise b11 eklesin b11 dolu ise b12... gibi

 

[Levent Menteşoğlu]

Comboboxa aşağıdaki kodu yazın.

Private Sub ComboBox1_Change()
a = WorksheetFunction.CountA(Sheets("SAYFA1").Range("b10:b80"))
Cells(10 + a, "b") = ComboBox1.Value
ComboBox1 = ""
End Sub