Inhalt der ListBox in Tabelle kopieren

Private Sub cmdEintragen_Click()
Dim wks As Worksheet
Dim rng As Range
Dim iCounter As Integer
Set wks = ActiveSheet
Workbooks.Add
Set rng = ActiveSheet.Range("A1")
For iCounter = 0 To lstAuswahl.ListCount - 1
If lstAuswahl.Selected(iCounter) Then
wks.Rows(iCounter + 1).Copy rng
Set rng = rng.Offset(1, 0)
End If
Next iCounter
End Sub

Private Sub UserForm_Initialize()
lstAuswahl.List = Range("A1") _
.CurrentRegion.Columns("C:D").Value
End Sub

Wie wäre die Syntax, wenn der komplette (ohen Auswahl) Inhalt der ListBox in
eine neue Tabelle kopiert würde?
Kann mir jemand helfen?
Vielen Dank im Voraus.
Grüße