Private Sub CommandButton1_Click()
    Dim i As Long
    Dim wsMyWks As String
    Dim nRow As Long
    Dim mRow As Range
    wsMyWks = ComboBox1.Value
    With Me.ListBox1
        .BoundColumn = 1
        .ColumnCount = 4
        .TextColumn = True
        nRow = Worksheets(wsMyWks).Range("A65536").End(xlUp).Row
        For Each mRow In Worksheets(wsMyWks).Rows("1:" & nRow)
            .AddItem mRow.Cells(1, 1).Value
            For i = 2 To 7
                .List(.ListCount - 1, i - 1) = mRow.Cells(1, i).Value
            Next i
        Next mRow
    End With
    MsgBox "Paste your code to get info from userform to worksheet here"
End Sub