Inserting and summing rows

kortni,

Please attach your workbook or a sample workbook that accurately portrays your current workbook on one sheet, and what it should look like 'After' on another sheet.

This makes it much easier to see exactly what you want to do, as well as shows us whether there is a consistent number of rows between tables and such.

To attach the workbook click on the New Post button, then scroll down and click on the Manage Attachments button.

Use the excel built in sub total function. Depending on the version of Excel, it can be found under DATA.

Alan

If you use the subtotal wizard, then it will automatically separate the sections for you and add a grouping feature and you do not need to use VBA. It does only do one sub total and you would have to copy the formula over for the other subtotals, however.

Alan

Hi kortni

Here's the code to do what you require with VBA

Public Sub ProcessData_Subtotal()
    Dim Lastrow As Long
    Dim i As Long
    Dim rUsed As Range
    Application.ScreenUpdating = False
    With ActiveSheet
        Lastrow = .Cells(.Rows.Count, "D").End(xlUp).Row
        For i = Lastrow - 1 To 2 Step -1
            If Cells(i, "D").Value2 <> Cells(i + 1, "D").Value2 Then
                .Rows(i + 1).Insert
            End If
        Next i
        Set rUsed = .UsedRange
        Application.DisplayAlerts = False
        rUsed.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(15, 16, 17 _
                ), Replace:=True, PageBreaks:=False, SummaryBelowData:=True
        Application.DisplayAlerts = True
    End With
    Application.ScreenUpdating = True
End Sub

I should point out, you will need to change this line of code to reflect your worksheet structure

 rUsed.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(15, 16, 17 _
                ), Replace:=True, PageBreaks:=False, SummaryBelowData:=True

John