I guess that you mean

iLastRow = Cells(Rows.Count,"A").End(xlUp).Row
With Worksheets("Sheet1").Range("A1")
.Autofill .Resize(iLastRow)
End With

--

HTH

RP
(remove nothere from the email address if mailing direct)


"J" wrote in message
...
What is a simple way (in a macro) to copy a formula down an empty column
and
only paste the formula if data exists on that row?

I've used {Worksheets("Sheet1").Range("A1:A100").FillDown} when I know how
many rows have data, but in this case I don't have any idea how many rows
there may be with data.

Thanks for any help.