das folgende Makro, soll eine Zeile, die am Anfang einer Datenbank steht und in dieser immer die neuen Kundendaten eingetragen werden sollen, die Zeile mit den neuen Daten in die erste freie Zeile am Ende der Datenbank kopieren.
Das funktioniert soweit auch, jedoch wenn ich dann eine weitere neue Zeile einfügen möchte, überschreibt es mir die Zeile von davor und hängt die Zeile nicht darunter an.
Wo liegt denn hier der Fehler? Kann mir jemand weiterhelfen?
Sub Neuer_Kunde()
Const SheetStamm As String = "Kundenstamm"
Const rNeu As String = "A12:K12"
Dim myWks As Worksheet
Dim lRow As Long
Application.ScreenUpdating = False
For Each myWks In Sheets(Array(SheetStamm))
With myWks
'in letzte Zeile kopieren
lRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
Sheets(SheetStamm).Range(rNeu).Copy
.Cells(lRow, 1).PasteSpecial xlPasteValues
'Formatierung übertragen
.Cells(lRow - 1, 1).Resize(, Range(rNeu).Columns.Count).Copy
.Cells(lRow, 1).Resize(, Range(rNeu).Columns.Count).PasteSpecial xlPasteFormats
End With
Next myWks
Sheets(SheetStamm).Range(rNeu).ClearContents
Application.ScreenUpdating = True
End Sub