Anderson, primeiro precisa definir a quantida de de Colunas na Propriedade do ListBox:
ColumnCount = ?? - Qde de Colunas.

Um exemplo basico e de fácil compreensão:

Private Sub UserForm_Initialize()
    Dim cell As Range
    Dim Rng As Range
    
    With ThisWorkbook.Sheets("Plan1")
        Set Rng = .Range("A2", .Range("A2").End(xlDown))
    End With
    
    For Each cell In Rng.Cells
        With Me.ListBox1
            .ColumnCount = 3 'Define a qde de Colunas no Listbox

            .AddItem cell.Value
            .List(.ListCount - 1, 1) = cell.Offset(0, 1).Value 'Coluna 1
            .List(.ListCount - 1, 2) = cell.Offset(0, 2).Value 'Coluna 2
            .List(.ListCount - 1, 3) = cell.Offset(0, 2).Value 'Coluna 3
        End With
    Next cell
    
End Sub

[]s

Só corrigindo o problema do Ctrl+C x Ctrl-V, rsrsr

Na Rotina acima, a qde de colunas no Listbox:
.ColumnCount = 3 o certo são 4 pelo fato do preenchimento termos:

.AddItem cell.Value 'Coluna 1 da Plan1 => 0 do ListBox e assim por diante
.List(.ListCount - 1, 1) = cell.Offset(0, 1).Value 'Coluna 2 da Plan1 => 1 do ListBox
.List(.ListCount - 1, 2) = cell.Offset(0, 2).Value 'Coluna 3
.List(.ListCount - 1, 3) = cell.Offset(0, 2).Value 'Coluna 4

Devemos ter em mente que a contagem em colunas em ListBox começa em "0".

[]s

Realmente é de facil aplicação, somente uma duvida oque significa ListCount - 1 já que o proximo numero é o indice da coluna como esplicado

Vamoas apelar À propria ajuda do VBA:
Propriedade ListCount
Retorna o número de entradas de lista em um controle.
Sintaxe : objeto.ListCount
A sintaxe da propriedade ListCount possui a parte a seguir:
Parte Descrição
objeto Obrigatória. Um objeto válido.

Comentários
A propriedade ListCount é somente leitura. ListCount é o número de linhas que podem ser roladas. ListRows é o máximo que pode ser exibido de uma só vez. ListCount é sempre uma unidade maior que o maior valor para a propriedade ListIndex, pois os números de índice começam com 0 e a contagem de itens começa com 1. Se nenhum item for selecionado, ListCount será 0 e ListIndex –1.

Propriedade ListIndex
Identifica o item atualmente selecionado em um ListBox ou ComboBox.
Sintaxe
objeto.ListIndex [= Variante]

O valor de ListIndex também está disponível definindo-se a propriedade BoundColumn como 0 para uma caixa de combinação ou uma caixa de listagem. Se BoundColumn for 0, a fonte de dados subjacente à qual a caixa de combinação ou a caixa de listagem está acoplada contém o mesmo valor de índice de lista que o de ListIndex.

[]s

VLW!!!
Preciso me acostumar a ultilizar a ajuda com mais frequecia.
Já utilizo bastante o gravador de macro que tem me ajudado muito tambem...

Brigadão

Resolvido :

Continuo sem conseguir editar com resolvido

Olá!

Aproveitando que não consegui editar o topico vai mais uma duvida.

Como preencher (tanto listbox como combobox) apartir de uma lista sem repetir valores?

Tipo numa lista

Anderson
Anderson
Anderson
José
José

Quero que apareça

Anderson
José

BLZ?

T+

Supondo que os dados estão na Coluna A, para preencher o ComboBox1 do Form :

Private Sub CommandButton1_Click()

Me.ComboBox1.Clear
Dim OCOLLECTION As New Collection
Dim VARVALUE As Variant
Dim I, ULTLINHA As Long

ULTLINHA = Plan1.Range("A65536").End(xlUp).Row
On Error Resume Next
    For Each VARVALUE In Plan1.Range("A2:A" & ULTLINHA)
        OCOLLECTION.Add (VARVALUE), (VARVALUE)
    Next

For I = 1 To OCOLLECTION.Count
        ComboBox1.AddItem OCOLLECTION.Item(I)
    Next

End Sub

Adaptei o codigo com os nomes da plan e do combobox implementei no evento UserForm_Initialize e rodou BLZ!

Mais uma vez Brigadão!!!

T+