Pasar datos de Listbox a celdas de excel

Con la siguiente macro, pasas los registros del listbox a la última celda de la columna B, puedes cambiar la columna B en la macro.

Private Sub CommandButton1_Click()
'Pasa los valores de un listbox a la última celda
'Por.Dam
    For i = 0 To ListBox1.ListCount - 1
        If Not ListBox1.Selected(i) Then
            ListBox1.Selected(i) = True
        End If
        valor = ListBox1.List(ListBox1.ListIndex, 0)
        Range("B" & Range("B" & Rows.Count).End(xlUp).Row + 1) = valor
    Next
End Sub

Saludos.Dam
Si es lo que necesitas.