Se o seu listbox estiver em um userform, veja um exemplo:

Private Sub UserForm_Initialize()
Dim rng As Range

With Sheets("plan1")
    Set rng = .Range(.Cells(2, "A"), .Cells(.Cells(.Rows.Count, "A").End(xlUp).Row, "E"))
End With

With Me.ListBox1
    .ColumnCount = 5
    .ColumnHeads = True
    .ColumnWidths = "55;80;100;60;60"
    .RowSource = rng.Address
    End With
End Sub

Basole foi quase

Olha o exemplo

Consegui ajustar ficou quase do jeito que eu queria, agora so queria saber como formatar a primeira linha tipo mudar o fundo colocar negrito essas coisas ..

Marcelo, um detalhe:

Como vc definiu ColumnHeads como True, para que a linha de cabeçalho fique dentro dos retângulos da listbox, vc deve usar como RowSource somente a área de dados, sem considerar com a linha do cabeçalho. No seu exemplo, começar da linha 4 e não da 3.

Não sei se dá prá formatar o cabeçalho com outras fontes/cores, acho que não, acho que só com gambiarrex

Ja tinha descoberto isso Edson, mas agora me surgiu uma duvida como usar esse mesmo recurso em um loop

Ou seja no retorno de uma consulta por exemplo

Marcelo, com o listbox, não e possível formatar a fonte ou fundo, somente uma linha, como acontece com o listview.
E também, não é possível utilizar a propriedade rowsource, juntamente com a .list ou seja com loop. ( * até dá, mas tem que escrever muito codigo)
Pode tentar filtrar os dados pela planilha e depois carregar com rowsource.
Ou inserir os cabeçalhos das colunas, usando label(s).

Entendi Basole, o codigo que carrega com um loop eu tenho conhecimento a minha dificuldade é carregar o cabeçalho da mesma maneira que vc exemplificou.