Solved: Required to copy and paste a formula to a column range

[bananatang]

HI,

Need abit of help on this one.

I would like to have a macro that will copy the formula in Column C1 and then paste to all through the column until it reaches the last row in Column A1 as this column will contain an entry for all records in the data table.

Thanks

BT

[Bob Phillips]

air coding

[vba]
Dim LastRow As Long

With Activesheet

LastRow = .Cells(.Rows.Count,"A").End(xlUp).Row
.Range("C1").Autofill .Range("C1").Resize(LastRow)
End With
[/vba]

[bananatang]

Thank you Xld.

BT