Sub SumClasses()
Dim iLastRow As Long
Dim i As Long
Dim tmp

iLastRow = Cells(Rows.Count, "F").End(xlUp).Row
tmp = ""
For i = iLastRow To 1 Step -1
If Cells(i, "F").Value < tmp Then
tmp = Cells(i, "F").Value
Rows(i + 1).Insert
Cells(i + 1, "F").Formula = "=SUMIF(F1:F" & i & ",""" & tmp &
""",AI1:AI" & i & ")"
End If
Next i

End Sub


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"rlee1999" wrote in message
...
I have 22 different classes in Column F, each class may have 1-25 item
rows.
I need to locate the last row of each class and insert a row below it (22
new
rows inserted throughout the sheet). Then I need it to sum the dollar
amounts
located in Column AI in the new row for all of the items in each class.

I hope you can help.

Thank you,

~Robert