data fra listbox til regneark

Jeg har fået hjælp herinde til at lave et program der viser data fra acces i en listbox i Exel..Jeg vil så skrive dem fra listboxen ind i et regneark..Det er flere kolonner i listboxen, men det er kun lykkedes mig at overføre 1. kolonne.
Jeg vedlægger lidt af prog. det hvor data ovf til listbox og der hvor jeg prøver at skrive det valgte fra listboxen ind i Exel.
P.s. hvordan får man kolonne-overskrifter på listboxen og indstiller længden på kolonnen?
      A = objRS
UserForm1.ListBox1.ColumnCount = 5
UserForm1.ListBox1.Clear
    If Not objRS.EOF Then
  I = 0
  Do While Not objRS.EOF
   
    With objRS
    UserForm1.ListBox1.AddItem objRS("Kundenr")
    UserForm1.ListBox1.List(I, 1) = objRS("Navn1")
    UserForm1.ListBox1.List(I, 2) = objRS("Navn2")
    UserForm1.ListBox1.List(I, 3) = objRS("adresse")
    UserForm1.ListBox1.List(I, 4) = objRS("postby")
       
        I = I + 1
        .MoveNext
      End With
    Loop
    UserForm1.Show
Fra listbox...til Exel???????

Private Sub CommandButton1_Click()
Range("a1").Select
With ActiveCell

.Offset(1, 2).Value = ListBox1.Text

End With

End Sub