Hallo zusammen, vorab vielen Dank für den Support, ich bin brandneu hier und absoluter Anfänger in VBA.

Folgendes Problem: Aus verschiedenen Codeschnipseln habe ich mir schon ein ganz gut funktionierendes Tool gebastelt.
Ich möchte es um eine Kopierfunktion von Datensätzen erweitern.

Die Idee ist folgende:
Schritt 1 prüft, welcher Datensatz in der Userform in der Listbox ausgewählt ist
Schritt 2 kopiert diesen Datensatz ab Spalte B bis TH und fügt ihn an die nächst mögliche Stelle unten in der DB ein
Schritt 3: die neue fortlaufende ID wird vergeben

ich glaube, dass 1 und 3 schon einigermaßen klappen, Probleme bereitet mir v.a. das Kopieren

Private Sub CommandButton6_Click()
' Befehl aktuellen Datensatz finden und kopieren

Dim lZeile As Long
 
      If ListBox1.ListIndex = -1 Then Exit Sub
     'Datensatz identifizieren, welcher kopiert werden soll
      lZeile = 2
      Do While Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) <> ""
      
     'Datensatz ID Spalte mit selektiertem Eintrag der ListBox vergleichen
      If ListBox1.Text = Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) Then
      Tabelle1.Rows(CStr(lZeile & ":" & lZeile)).Copy Destination:=Worksheets("Datenbank").Range("B:TH")
    
 'Die ListBox muss nun neu geladen werden!
      Call UserForm_Initialize
      If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
              
      Exit Do 'Vorzeitiges Ende, da der Datensatz schon gefunden ist
      End If
      lZeile = lZeile + 1 'Nächste Zeile bearbeiten
      Loop

'Befehl ID Vorschlag kopieren

    Dim lZeile As Long
      lZeile = 2
      Do While Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) <> ""
          lZeile = lZeile + 1
      Loop
      Tabelle1.Cells(lZeile, 1) = CStr("ID-Vorschlag: " & lZeile)
      ListBox1.AddItem CStr("ID-Vorschlag: " & lZeile)
      ListBox1.ListIndex = ListBox1.ListCount - 1
          
End Sub