View Single Post
  #2   Report Post  
GaryDK
 
Posts: n/a
Default

Hi Dave,

Assuming you have one row between your second description and section
total rows, this macro will do what you describe. Select the first
total cell and then run the macro.

Sub SumSection()
With ActiveCell
.FormulaR1C1 = "=SUM(R[-3]C:R[-2]C)"
.Copy Destination:=.Offset(0, 1).Resize(1, 3)
.Offset(1, -1).Select
Application.CutCopyMode = False
End With
End Sub

Also, if all your section totals have the label "Section Total", you
can have your Form Totals cells automatically update when you insert a
new section. With the following asumptions (just for this example):

1. Your form starts in column A, and the costing numbers are in B
thru E.
2. The Form Totals line is in row 20.
3. The Form Totals formulas encompass the rows in which you insert a
new section.

Then you can use this formula in the first Forms Total cell (and copy
it to the others):

=SUMIF($A$1:$A$19,"Section Total",B1:B19)

I hope this helps,

Gary