Das Ziel sollte sein, Gleichungen in der ersten Zeile eingeben zu können und automatisch bis zu einer zu benennenden letzten Zeile zu übernehmen.
Sub test()
Range("A1").Copy
Range("A2:A2000").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub