For x = 6 To 14
Controls("ComboBox" & x).Column = ThisWorkbook.Sheets("VERÝ").Range("A1:N1").Value
Next x
Alttaki koddaki A1 yerine F1 yazılacak sadece abey Bürosundan başlayacaksa.