Tim

Dim lrow As Long

lrow = Cells(Rows.COUNT, "A").End(xlUp).Row
''' using R1C1 notation
Range(Cells(1,1),Cells(lrow,1).Formula="=Sum(B1:F1 )"

[pick your own formula...]

--
sb
"Tim" wrote in message
...
I am trying to write a macro that involves creating a
formula in one cell and autofilling it for the rest of the
rows in the spreadsheet. Currently I have 538 lines,
however the data will continue to grow and more rows will
be added. Is there a way to record my macro so that it
will autofill to the end of the data each time rather than
stopping at the original 538th line?

The VBA line is as follows:

Selection.Autofill Destination:=ActiveCell.Range("A1:A538")

Any help would be greatly appreciated. Thank you in
advance!

Tim