Copy data from Listbox columns to Sheet

Hi,

I'd like to transfer columns 1, 2 and 4 from a userform listbox to columns A, B and C of a worksheet, but find this to be beyond my reach. Can anyone help me with a code that does this? Thanks a lot.

Hello WCJanssen,

The macro below will copy the columns of the List Box to the worksheet starting at cell "A1". Change the list box name if you need to and the starting cell in column "A" as well.

Sub CopyListData()

  Dim Data() As Variant
  Dim I As Long
  
    ReDim Data(ListBox1.ListCount - 1, 2)
    
      For I = 0 To UBound(Data)
        Data(I, 0) = ListBox1.List(I, 0)
        Data(I, 1) = ListBox1.List(I, 1)
        Data(I, 2) = ListBox1.List(I, 3)
      Next I
    
    Range("A1").Resize(I, 3) = Data

End Sub

or

sub snb()
  Sheets(1).Cells(1).Resize(ListBox1.ListCount, UBound(ListBox1.List, 2) + 1) = ListBox1.List
  Sheets(1).columns(3).delete
End Sub