Ich bin es nochmal,
ich hatte schon den dreizeiligen Code aktiviert
Set sh = Worksheets("Datenbank")
'lRow = 4210 'Festlegung der Einfügezeile
'sh.Rows(lRow).Insert Shift:=xlDown
'Alternative mit Löschung der Werte aus der Quellzeile aber Beibehaltung der Formeln
lRow = sh.Cells(sh.Rows.Count, "D").End(xlUp).Row
Call Zeileeinfügen(lRow, sh)
lRow = lRow + 1
With Sheets("Eingabe")
sh.Cells(lRow, "E").Value = .Range("D2").Value
(lRow = 4210)
Trotzdem bleibt die Fehlermeldung: sh.Cells(lRow + 1, 1).Insert Shift:=xlDown
Gruß
Ralf