Thanks Bernie. I had tried a similiar code, but it keep hanging up at the
formula. Works perfect!

"Bernie Deitrick" wrote:

Josh,

Range("O2:O" & Range("G65536").End(xlUp).Row).FormulaR1C1 = _
"=IF(RC[-8]0,SUM(RC[-7]:RC[-1]),"" "")"

This will extend down column O to match the values in column G.

HTH,
Bernie
MS Excel MVP


"Josh O." wrote in message
...
Thanks Bernie.

How about the same thing with a different formula put into column "o"?
=if(g20,sum(h2:n2)," ")

"Bernie Deitrick" wrote:

Josh,

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

HTH,
Bernie
MS Excel MVP


"Josh O." wrote in message
...
How can I enter a formula into cell E2 and then fill the formula down
to
the
last row with data on the sheet.

For example:
enter into E2: =IF(D20,TODAY()-(D2+30)," ")
Fill into E3: =IF(D30,TODAY()-(D3+30)," ")
...Fill to last Row on sheet with data in column D.