Jasmine,

You can use the offset function (search for "Offset" in the VBA help).

Modifying your code to insert a '.offset(1,0)' beween the 'End(xlup)' and
the '.Row' should do what you want it to.

Range("E2:E" & Range("D65536").End(xlUp).Offset(1, 0).Row).FormulaR1C1 =
"=IF(RC[-1]0,TODAY()-(RC[-1]+30),"" "")"


Mike

"Jasmine" wrote:

I am using the following to put a formula in the first cell and copy it down
to the other cells. It is working good, but I need it to copy one cell
further than it does. Any way to force it?

Range("E2:E" & Range("D65536").End(xlUp).Row).FormulaR1C1 = _
"=IF(RC[-1]0,TODAY()-(RC[-1]+30),"" "")"

Thank you very much!