Ich habe folgendes in ein Makro geschrieben,
Sobald ich eine Zelle in der Spalte ausgefüllt habe und das Makro ausführe soll identische leere Zeile aber mit allen Formeln und Bedingen unter die ausgefüllte Zeile im leeren Zustand kopiert werden damit ich eine weitere Spalte ausfüllen kann. Diese Zeile ist in A7, also wenn ich A7 mit nur einem Wert ausgefüllt habe soll die neue Zeile A8 sein.
Folgendes neues Modul habe ich eingefügt :
Sub NeueZeileEinfügen(nachZeile As Long)
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Kalkulation")

With ws
.Rows(nachZeile + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
.Rows(nachZeile).Copy
.Rows(nachZeile + 1).PasteSpecial Paste:=xlPasteFormulasAndNumberFormats
.Rows(nachZeile + 1).PasteSpecial Paste:=xlPasteFormats
.Cells(nachZeile + 1, 1).Select
Application.CutCopyMode = False
End With
End Sub

Folgenden Code habe ich in MeineArbeitsmappe zur automatischen Erstellung der Zeile eingefügt
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not Intersect(Target, Sh.Range("A:A")) Is Nothing Then
Dim lastRow As Long
lastRow = Target.Row
If lastRow >= 7 Then ' Beginne ab Zeile 7
Call NeueZeileEinfügen(lastRow)
End If
End If
End Sub

Beim Ausführen bekomme ich dann einen Fehler , der Debug Modus wird geatartet ich kann nichts machen und Excel wird geschlossen.