Não deu para entender bem, mas veja se é isso:
Private Sub UserForm_Initialize()
Dim I As Long
For I = 2 To 30
Me.ComboBox1.AddItem Plan1.Range("A" & I).Value
Next I
For I = 2 To 30
Me.ComboBox1.AddItem Plan1.Range("C" & I).Value
Next I
End Sub

Ou então para achar automaticamente a quantidade de itens por linha:
Private Sub UserForm_Initialize()
Dim I As Long
For I = 2 To Plan1.Range("A65536").End(xlUp).Row
Me.ComboBox1.AddItem Plan1.Range("A" & I).Value
Next I
For I = 2 To Plan1.Range("A65536").End(xlUp).Row
Me.ComboBox1.AddItem Plan1.Range("C" & I).Value
Next I
End Sub

Substitua 65536 por 1048576 caso use o Excel 2007,

Desculpe e nova pergunta, mas
o codigo esta certo somente não aparece a linha "C" quando coloca na 2ª linha, sempre aparece a primeira linha

Private Sub UserForm_Initialize()
Dim I As Long
For I = 2 To 30
Me.ComboBox1.AddItem Plan1.Range("A" & I).Value (esta aqui aparece
Next I
For I = 2 To 30
Me.ComboBox1.AddItem Plan1.Range("C" & I).Valuemas esta não aparece n 2º coluna e também gostaria que quando clicasse este é que fosse escolhido para fica no combox
Next I
End Sub

Não estou conseguindo entender o que quer.

É paulo, realmente não está muito claro, mais acho que ele quer isso aqui.

Private Sub UserForm_Initialize()
    Dim I As Long
    Me.ComboBox1.Clear
    Me.ComboBox1.ColumnCount = 2
    For I = 2 To Plan1.Range("A65536").End(xlUp).Row
        Me.ComboBox1.AddItem
        Me.ComboBox1.List(Me.ComboBox1.ListCount - 1, 0) = Plan1.Range("A" & I).Value
        Me.ComboBox1.List(Me.ComboBox1.ListCount - 1, 1) = Plan1.Range("C" & I).Value
        
    Next I
End Sub

Muito Obrigado pela Ajuda, é isto mesmo.
Caso queira usar a mesma plan1 no mesmo form, em outros combox, há necessidade de mudar "I"?, por exemplo:

No combobox1 - usei Plan1 Colunas A e B
No Combobox2 - quero usar Plan1 Colunas C e D,
Há necessidade de mudar a formula?

somente esta pergunta e este tópico esta resolvido..

Muito Obrigado a Todos desta Site.

Betofilmes

Não não ha a necessidade, basta separa os codigos para cada combo

    'Codigo do Combo 1 apontando para as colunas A e B
    For I = 2 To Plan1.Range("A65536").End(xlUp).Row
        Me.ComboBox1.AddItem
        Me.ComboBox1.List(Me.ComboBox1.ListCount - 1, 0) = Plan1.Range("A" & I).Value
        Me.ComboBox1.List(Me.ComboBox1.ListCount - 1, 1) = Plan1.Range("B" & I).Value
    Next I

    'Codigo do Combo 2 apontando para as colunas C e D
    For I = 2 To Plan1.Range("A65536").End(xlUp).Row
        Me.ComboBox2AddItem
        Me.ComboBox2.List(Me.ComboBox2.ListCount - 1, 0) = Plan1.Range("C" & I).Value
        Me.ComboBox2.List(Me.ComboBox2.ListCount - 1, 1) = Plan1.Range("D" & I).Value
    Next I

Valeu

Muito Obrigado resolvi, sua dica foi "supimba", funcionou muito bem.

Obrigado

BetoFilmes

Que isso amigo, o caminho é esse, continue estudando o VBA e verás que ha muito a se melhorar

[]s