LastRow = Cells(Rows.Count, "c").End(xlUp).Row
Range("C2").Resize(LastRow - 1).FormulaR1C1 = "=IF(RC[2]0,400,500)"


--

HTH

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


"Jasmine" wrote in message
...
I am trying to write in my macro to put a specific formula in cell C2 then
copy it to all cells in that column that are active rows. The active rows
will change each time, so I may have 50 then 25. I then need to copy that
column and do a paste special values to get rid of the formula and just
have
the value. Here is the code, but it is not working. Please help!

Range("C2").Select
ActiveCell.FormulaR1C1 = "=IF(RC[2]0,400,500)"
Selection.Copy
lastrow = Cells(Rows.Count, "c").End(xlUp).Row
ActiveSheet.PasteSpecial Paste:=xlPasteValues