Hello,

i like some help for export the whole listbox into my sheet
if possible we like to import in the correct cells/column of the sheet

hope we make a good point

our code

Dim lngItem As Long


    For lngItem = 0 To ListBox2.ListCount - 1
        If ListBox2.Selected(lngItem) Then
            With Worksheets("2020")
               .Cells(.Rows.Count, "A").End(xlUp).Offset(1).Value = ListBox2.List(lngItem, 1)
            End With
        End If
    Next lngItem
this add the selected to the sheet
but we can't manage to add the one that are displayed in the listbox
to the correct columns of the sheet
and it starts on row 4 instead of row 5

our sheet has 5 columns
also column B we like to add autonumeric count numbers when items are added
listbox2.column(number) we like to add into the column we like into the sheet


thank you