Sub IlleriAktar()
Dim x As Byte
x = Sheets("TANIMLAR").Range("C100").End(xlUp).Row
ComboBox_Sehir.ColumnCount = 2
ComboBox_Sehir.ColumnWidths = "0,120"
ComboBox_Sehir.RowSource = "TANIMLAR!B2:C" & x
End Sub
Alttkoddaki ilgili yerleri değiştirin.Çünkü 2 kolonluk yapmışsınız.