Listbox selection in form to table

Hi All.

Have this problem with a listbox. When I select a item in my listBox (Located in a form) and then execute command to paste it into a table. It is pasting the last item on the list everytime. What am I doing wrong? Do I need to index the list, if so, then how? or is there another fix for this.
This is the code I am using, the ListBox have two columns.

Private Sub cmdBook_Click()
Dim lrDT As Long

lrDT = Sheets("Sheet3").Range("A" & Rows.Count).End(xlUp).Row

    Dim i As Long
    For i = 0 To Me.ListBox1.ListCount - 1
        Sheets("Sheet3").Cells(lrDT + 1, "A") = ListBox1.Column(0, i)
        Sheets("Sheet3").Cells(lrDT + 1, "B") = ListBox1.Column(1, i)
    Next i

End Sub

Just tried. Dosenīt work sorry.
It adds the hole record from the listbox to the table. Funny..
But thanks for trying..

Hey Norie..

Yes I only want to add the selected item from the list to the table.
Actually there is two ListBoxes in the form and two TextBoxes, but the Textboxes add data fine. It is just the select thing in listbox that drives me crazy..


Sent from my iPad using Tapatalk

Hey Norie.

It works. Thanks you so much..!! And thank you for your time.