Segue um direcional, para seu inicio. O objetivo do fórum não e passar tudo, mas que se aprenda fazendo
Utilize a consulta do fórum, há muito sobre o assunto

Segue o exemplo passar os dados da listbox na planilha:

Private Sub Cmdbtn03_Click()
Dim lastRow As Long
Dim lastlist As Long

lastRow = Plan1.Cells(Plan1.Cells.Rows.Count, "A").End(xlUp).Row + 1
lastlist = ListBox1.ListCount - 1

With ListBox1
 If .ListCount = 0 Then
        MsgBox "Listbox sem registros"
        Exit Sub
    Else
    
    For li = 0 To lastlist
   
    Cells(lastRow, 1).Value = .List(li, 0)
    Cells(lastRow, 2).Value = .List(li, 1)
    Cells(lastRow, 3).Value = .List(li, 2)
    lastRow = lastRow + 1
  
   Next
 End If
End With

End Sub

Boa tarde!
rlm e cleiton obrigado por ajudar.

rlm, acabei upando o arquivo em branco errado, eu já tinha feito uma parte porém dava erro, acabei upando o arquivo de teste que fiz o layout e que ainda estava em branco!

Obrigado a todos.

Boa tarde Amigos,
Usei a dica acima de deu certo.
Agora estou tentando somar apenas a 6ª coluna, que contém o valor total.

Tenho 03 linhas lançadas no listbox, porém não consigo fazer a soma da coluna 6 na label.

Estou usando o código abaixo:

Sub Somar()
Dim lItem As Double
Dim Total As Double
For lItem = 0 To ListBox1.ListCount - 1
If IsNumeric(ListBox1.List(lItem, 6)) = True Then
        Total = Total + CDbl(ListBox1.List(lItem, 6))
Label107.Caption = Total
End If
Next
End Sub

E o erro, acontece nesta linha:

For lItem = 0 To ListBox1.ListCount - 1

Alguém poderia me ajudar?

Obrigado

Não tive problema.
Veja se e assim:

Boa noite rlm,
Obrigado, perfeito, era isto mesmo, deu certo aqui no projeto.

Muitooo obrigado pela sua ajuda!!!!!!