Keine Werte (nur Formel/Formate kopieren)

Sub BeliebigeZeileKopieren()
Dim iRowL As Integer, rngZeileLast As Range
Const SpalteMitLetztenWert As Integer = 2 '1 = Spalte A, 2 = Spalte B usw.
Application.EnableEvents = False
' Zeilen einblenden
iRowL = Cells(Rows.Count, SpalteMitLetztenWert).End(xlUp).Row
Rows(iRowL + 1).Hidden = False
'Letzte Zelle in Spalte ermitteln
iRowL = Cells(Rows.Count, SpalteMitLetztenWert).End(xlUp).Row
Set rngZeileLast = Rows(iRowL) 'Musterzeile
With rngZeileLast
.Copy 'Zeile kopieren
rngZeileLast.Insert shift:=xlShiftDown
Application.CutCopyMode = False 'Kopiermodus aufheben
.Hidden = True 'Zeile ausblenden
End With
Application.EnableEvents = True
End Sub

Wenn ich nun in der Zeile 36 ein Wert eingegeben wird, springt er in die ausgeblendete Zeile und wenn ich hier einen Wert eingebe kopiert er mir diesen nachfolgend immer wieder..
Kann man irgendwie einrichten, dass er nur die Formeln kopiert, bwz. nach Ausführung des Makros wieder an die letzte Zeile oberhalb der ausgeblendeten Zeile springt?
Für Hilfe wäre ich sehr dankbar :-)
Ich glaube am besten sieht man, wo mein Problem liegt wenn man die Datei hat ;-)