@berduş  hocam alttaki gibi yapınca daha kısa olur combolara veri alması.Functionada gerek kalmaz bence.

Private Sub UserForm_Initialize()

    Dim x As Byte

    For x = 1 To 14

        Controls("ComboBox" & x).Column = ThisWorkbook.Sheets("VERÝ").Range("A1:N1").Value

    Next x

End Sub