Formel per Makro nach unten kopieren

Ich möchte per Makro eine Zeile einfügen und die Formeln der darüberliegenden Zeile in die neue Zeile kopieren. Wenn über die Datenmaske gehe, werden die Formel übernommen, aber ich möchte auch mal so zwischendrin eine neue Zeile einfügen.

Per Makroaufzeichnung und mit der Recherche wollte ich dies lösen, bekomme aber den absoluten Bezug nicht weg und eingefügt werden auch die darüberliegenden Werte.

Sub zeilemitformel()
Selection.EntireRow.Insert
Rows("4:4").Select
Selection.Copy
Range("A5").Select
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub

Kann kir jemand helfen? Vielen Dank schon mal!

Gruß Stefan