For a multi-column List Box try something like this.

Option Explicit
 
Private Sub CommandButton1_Click() 'Add Item
Dim i               As Long
    Dim Duplicate       As Boolean
If Me.ListBox1.Text <> "" Then
        For i = 1 To Me.ListBox2.ListCount
            If Me.ListBox2.List(i - 1) = Me.ListBox1.Column(0, _
                Me.ListBox1.ListIndex) & vbTab & _
                Me.ListBox1.Column(1, Me.ListBox1.ListIndex) Then
                 'Duplicate Entry
                Duplicate = True
                Exit For
            End If
        Next i
        If Duplicate = False Then
            Me.ListBox2.AddItem Me.ListBox1.Column(0, _
            Me.ListBox1.ListIndex) & vbTab & _
            Me.ListBox1.Column(1, Me.ListBox1.ListIndex)
        End If
    End If
End Sub
 
Private Sub CommandButton2_Click() 'Remove Item
If Me.ListBox2.Text <> "" Then
Me.ListBox2.RemoveItem Me.ListBox2.ListIndex
End If
End Sub
Try this code for putting the values into the worksheet.

Private Sub CommandButton3_Click() 'Submit
Dim i           As Long
    Dim n           As Long
    Dim Part1       As String
    Dim Part2       As String
For i = 1 To Me.ListBox2.ListCount
        n = InStr(1, Me.ListBox2.List(i - 1), vbTab)
        Part1 = Left(Me.ListBox2.List(i - 1), n - 1)
        Part2 = Mid(Me.ListBox2.List(i - 1), n + 1, _
        Len(Me.ListBox2.List(i - 1)))
        Sheets("Sheet1").Range("E" & 11 + i).Value = Part1
        Sheets("Sheet1").Range("K" & 11 + i).Value = Part2
    Next i
End Sub