Ok I give up. I don't understand exactly what this command does and what it
manipulates so I will just give you my true case:

I have names in column A, values in Columns B, C, D, E, G, H, J, K, M and O.
I need formulas in columns F, I, L and N based off of what you have given me
so far. I have filled in my formulas for the row that has the word "Totals"
in it. The first row with values in it is 11.

jindon wrote:
OK
no need to fildown

Code:
--------------------

Sub test()
Dim r As Range
Set r = Columns("a").Find("Totals", , , xlWhole)
If Not r Is Nothing Then _
r.Offset(, 1).resize(,2).FormulaR1C1 = "=sum(r2c:r[-1]c)"
with range("a2", range("a" & rows.count).end(xlup))
.offset(,3).formular1c1="=sum(rc[-2]:rc[-1])"
end with
End Sub
--------------------


--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200605/1