Office: (Office 2007) VBA - Code Zeile einfügen soll erst ab bestimmter Zeile beginnen

Hallo ihr Lieben,

ich habe vor kurzem eine Excel-Tabelle erstellt, in der ich über ein Makro eine neue Zeile hinzufügen kann, in der alle Formeln und Formate übernommen werden. Das sieht so aus:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
   
 With Rows(ActiveCell.Row)
     .Copy
     .Insert shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
     .SpecialCells(xlCellTypeConstants).ClearContents
 End With
 Application.CutCopyMode = False
End Sub

Da es Probleme mit einer Spalte gab, in der die neue Zelle sich aus dem Wert der alten minus einen Festwert ergibt, habe ich den Code noch erweitert:

Code:

Dim Ende As Long
    With ActiveSheet
         Ende = .Cells(.Rows.Count, 2).End(xlUp).Row
         .Range("B8:C8").AutoFill Destination:=Range("B8:C" & Ende), Type:=xlFillDefault
    End With
End Sub

Nun dachte ich mir, es wäre doch cool, wenn ich nicht erst ein Makro ausführen muss, sondern die neue Zeile automatisch eingefügt wird. Ich habe den Code soweit umgeschrieben:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range(Cells(Target.Row, 5), Cells(Target.Row, 5))) Is Nothing Then
  If Not IsEmpty(Target) Then
    Rows(ActiveCell.Row - 1).Copy
    Rows(ActiveCell.Row - 1).Insert shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Rows(Cells(Rows.Count, 2).End(xlUp).Row).SpecialCells(xlCellTypeConstants).ClearContents
  End If
Application.CutCopyMode = False
End If

Dim Ende As Long
    With ActiveSheet
         Ende = .Cells(.Rows.Count, 2).End(xlUp).Row
         .Range("B8:C8").AutoFill Destination:=Range("B8:C" & Ende), Type:=xlFillDefault
    End With
End Sub

Nun noch meine Frage :). Wie kann ich nun im Code integrieren, dass die neue Zeile erst ab Zeile 11 immer hinzugefügt wird. Nun beginnt ja der Code ab Zeile 1, was ich nicht gebrauchen kann. (Das war der Vorteil bei der Makrovariante. Ich konnte es mir aussuchen.)

LG
Tobi

 

Mir ist gerade die Lösung eingefallen:

Code:

If Target.Count > 1 Or Target.Row < 7 Then Exit Sub

Viele Grüße an alle.