Hi Colo,

I placed my cursor at Cell M2 that has a formula and run the code belo
but it doesn't copy down the formula !

Is there something missing from your code ?
Hope you can help. Thanks.


Sub Cell2CopyToEnd()

Dim col As Long
col = ActiveCell.column
Range(Cells(2, col), Cells(Rows.Count, col).End(xlUp)).Formula = _
Cells(2, col).Formula

End Su

--
Message posted from http://www.ExcelForum.com