Sub Foo()
lr = Cells(Rows.Count, "E").End(xlUp).Row ' obtain last active row
For i = lr To 2 Step -1
Cells(i, 7).FormulaR1C1 = "=(RC[-1]-RC[-2])" '7 used for Column G
Next i
End Sub

"Bob Phillips" wrote in message
:

It would help if you gave us a bit more information, what does the data look
like, what does the macro need to do?

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)



"Mike" wrote in message
...
I have a database query that runs by a date range which can return
different
amount of data based on date range this is the formula that i hand type
into
cells
Can someone maybe help me with a formula to run a macro for this

Thanks mike

Range("G12").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-2]-RC[-3])"
Range("H12").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-2]*RC[-1])"