Formeln aus Tabelle / Sub erstellen möglich?

Hallo alle zusammen,
ich frage mich gerade ob ich eine Tabelle in der viele viele Formeln stehen, die Formeln per Makro auslesen kann und gleich eine S.ub angelegt wird mit der im Zweifel alles wieder zurückgeschrieben werden kann.
Also quasi als ein "Formel - Backup" soll sowas erstellt werden:

Sub Formeln()
With Sheets("Berechnen")
.Range("M4").Value = "=R[-1]C*100%/R[-1]C[-2]"
.Range("N3").Value = "=SUM(RC[-3]*R[8]C[-6])/100"
.Range("N4").Value = "=R[-1]C*100%/R[-1]C[-3]"
.Range("O3").Value = "=SUM(RC[-4]*R[4]C[-7])/100"
.Range("O4").Value = "=R[-1]C*100%/R[-1]C[-4]"
.Range("P3").Value = "=RC[-3]-RC[-2]-RC[-1]"
.Range("P4").Value = "=R[-1]C*100%/R[-1]C[-5]"
.Range("Q4").Value = "=RC[-1]*100"
.Range("R3").Value = "=RC[-2]-R[3]C[-4]"
.Range("R4").Value = "=R[-1]C*100%/R[-1]C[-7]"
.Range("S4").Value = "=RC[-1]*100"
.Range("M6").Value = "=SUM(R[-3]C[-2]*R[9]C[-5])/100"
.Range("N6").Value = "=SUM(R[-3]C[-3]*R[10]C[-6])/100"
'usw
End With
End Sub