Code-Problem

Sub loeschen()
Dim ber As Range, z As Range
Set ber = Range("D13:AH44")
With Selection.Interior
Selection.Value = ""
End With
Range("AB1").Select
End Sub

Nun sollte der Code aber in dem Bereich, in dem ich gelöscht habe, das gelöschte mit der Formel aus F8 ersetzen.
Beispiel:
Ich lösche P10:P20 - jetzt sind die Zellen leer.
Hier müsste jetzt die Formel von F8 hineinkopiert werden (Inhalte einfügen - Formel)
Könnt ihr mir helfen?
Tausend Dank im voraus.
Gruß Frederic