One way:

Public Sub FillDown()
With Sheets("Sheet2").Range("A1")
.AutoFill Destination:=.Resize(900, 1)
End With
End Sub


In article ,
"Tim" wrote:

I need a macro to copy a cell's formula, then paste that
formula into a range of cells. This range would be on a
hidden sheet different than the one that the user would
see on the screen. I could use some help with the syntax
for getting this to work. For instance:

The user is on sheet1.
They run macro.
Formula from cell A1 on sheet2 is copied and pasted into
the range A2:A900 on sheet2.

Any help would be appreciated.