Guten Morgen

Hoffe ihr könnt mir weiter helfen.

Ich will über einen bestimmten Wert eine Leerzeile einfügen.
Habe auch schon einen passenden Beitrag gefunden, wo allerdings eine Leerzeile unter einem bestimmten Wert eingeführt wird.

Sub Leerzeilen_einfügen()
Dim Wiederholungen As Long
Application.ScreenUpdating = False
For Wiederholungen = Range("A65536").End(xlUp).Row To 1 Step -1
If Cells(Wiederholungen, 1) = "Leerzeile einfügen" Then
Rows(Wiederholungen + 1).Insert Shift:=xlDown
End If
Next
End Sub

Was müsste ich an dem Makro ändern um mein beschriebenes Problem zu lösen?

Vielen Dank schon mal im vorraus.

Gruß
Rudi