Dim r As Range
Set r = Columns("A").Find("Totals", , , xlWhole)
If Not r Is Nothing Then
r.Offset(, 5).FormulaR1C1 = "=SUM(R11C6:R[-1]C6)"
r.Offset(, 8).FormulaR1C1 = "=SUM(R11C9:R[-1]C9)"
r.Offset(, 11).FormulaR1C1 = "=SUM(R11C12:R[-1]C12)"
r.Offset(, 13).FormulaR1C1 = "=SUM(R11C14:R[-1]C14)"
End If


--
HTH

Bob Phillips

(remove xxx from email address if mailing direct)

"erikkeith via OfficeKB.com" <u13156@uwe wrote in message
news:6013d3c6d2d08@uwe...
Here is my problem:

Ok, two more things. 1. How can I do autofill formulas for an entire row
based off of finding the word "Totals"

After I put in this - Dim r As Range
Set r = Columns("a").Find("Totals", , , xlWhole)
If Not r Is Nothing Then r.Offset(, 1).FormulaR1C1 = "=sum(r1c:r[-1]c)" I
want to be able to run the formula for Column F11 and autofill all the way
down 2 rows up from the row that I have "Total" on.

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. 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.

Please help!

--
Message posted via http://www.officekb.com