try somrthing like this:

dim x as integer
for x =1 to 65000
Put your code here
if cells(x,1)="" then exit sub
next x


-----Original 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


.