Help: Macro Adds Rows, Need to Update Totals with New rows

[Matt]

This is what i have for trying to update the formulas when new rows are
added:

Worksheets("Data").Cells(Worksheets("Data").UsedRange.Rows.Count,
8).FormulaR1C1 = _ "=SUM(H2:" & _
Worksheets("Data").Cells((Worksheets("Data").UsedRange.Rows.Count - 1),
8) & ")"

Worksheets("Data").Cells(Worksheets("Data").UsedRange.Rows.Count,
9).FormulaR1C1 = _
"=SUM(I2:" & _
Worksheets("Data").Cells((Worksheets("Data").UsedRange.Rows.Count - 1),
9) & ")"

Worksheets("Data").Cells(Worksheets("Data").UsedRange.Rows.Count,
10).FormulaR1C1 = _
"=SUM(J2:" & _
Worksheets("Data").Cells((Worksheets("Data").UsedRange.Rows.Count - 1),
10) & ") +" _
& Worksheets("Data").Cells(Worksheets("Data").UsedRange.Rows.Count,
6).Value

Obviously, it doesn't work as submitted. I'm pretty sure the problem is
in the formula, specifically, when I try to reference the new range i
want to work with. I have an idea of what the problem is, I just can't
for the life of me figure out how to change it to make it work properly

I would also like to make these formulas instead only display the sum
of the visible rows (on the last formula, i would also like it to only
add the cell in column 6 if all the rows are visible, note there is a
column hidden that will always remain hidden)

Subtotal will not work because i'm not using filters when the rows are
hidden

thanks for the help everybody, you've all been great with every
question i've asked in the past

i know everybody helps when they have time so, even though i'd like to
say i need the help ASAP, i understand its never reasonable, so, when
you have time it would be wonderful

 

[Matt]

Sorry about the code, i tried to make it fit (it fit properly in the
posting window but not after it posted)

 

[Matt]

Anybody have any ideas for this?

Sorry about the code, i tried to make it fit (it fit properly in the
posting window but not after it posted)