Makro

in zelle A7 steht eine Formel, die mir eine bestimmte zeichenkette ausgibt. nun soll eine schaltfläche bei jedem klick die spalte A zeile für zeile mit der oben genannten Formel füllen. das ist mir mit folgendem (hiergefundenen) Makro gelungen:
Dim laR As Long
laR = Cells(Rows.Count, 1).End(xlUp).Row
Cells(laR + 1, 1) = Cells(7, 1)

Das Problem:
die Formel bezieht sich immer auf die vorhergehende zeile, weil ein bestimmter wert um 1 wachsen soll. (wenn ich von hand kopiere funktioniert das auch).
das Makro kopiert mir aber nur den wert.

Frage: wie lautet das Makro richtig, damit die kopierte Formel funktioniert?