Excel VBA: Listbox per AddItem befüllen

Hallo miteinander!

Meine Wege haben mich jetzt auch zu VBA geführt. Leider fehlt mir da das erweiterte Grundwissen.
Ausgangslage:
Ich hab eine Tabelle mit mehreren Spalten (A bis F)
Die würde ich alle gerne in einem Userform in einer Listbox einlesen/anzeigen lassen.

Im Netz gesucht und nicht wirklich was brauchbares gefunden. Es geht zwar irgendwie mit
aber das ist zum einen statisch (was wenn ich mehrere zeilen hab?) und zum anderen kann ich da dann nicht mehr viel weiterarbeiten.
Ich müsste die Listbox wohl mit AddItem befüllen.
Okay...weitergesucht und auch was gefunden. Leider klappt das nur für Spalte A.

Wie krieg ich denn da die restlichen Spalten noch unter? Da muss ich wohl eine weitere Variable für die Spalten setzen. Analog zu lZeile dann lSpalte und der Code sollte dann so heißen (nehme ich an):

Ich bin da für jede Hilfe dankbar.

Private Sub UserForm_Initialize()
    Set Rng = Range("A1").CurrentRegion  
    With ListBox1
        .ColumnCount = Rng.Columns.Count
        .List = Rng.Value
    End With
End Sub

Private Sub UserForm_Initialize()
    Set Rng = Range("A2", Range("A2").CurrentRegion.SpecialCells(xlCellTypeLastCell))  
    With ListBox1
        .ColumnHeads = True
        .ColumnCount = Rng.Columns.Count
        .RowSource = Rng.Address
    End With
End Sub

Private Sub CommandButton1_Click()
    Dim i As Long
    Dim lngTabelle As Long
    With Tabelle1
        For i = .Cells(Rows.Count, 3).End(xlUp).Row To 2 Step -1
            Select Case CStr(.Cells(i, 3))
              Case "X": lngTabelle = 2  
              Case "Y": lngTabelle = 3  
            End Select
                .Rows(i).Copy Worksheets(lngTabelle).Cells(Worksheets(lngTabelle).Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
                .Rows(i).Clear
        Next
    Call UserForm_Initialize
    End With
End Sub

If ListBox1.ListIndex >= 0 Then

if ListBox1.ListCount > 0 then
 For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
        MsgBox ListBox1.List(i)
    End If
 Next
End if