VBA: Insert blank row each time left(cell,5)="Total"

Peter_SSs said:

This may not quite work for you but if the actual subtotal formulas were in column G (with no other formulas already in that column) then you could try

Code:

Sub InsertRows()
    Range("G1", Range("G" & Rows.Count).End(xlUp).Offset(-1)) _
        .SpecialCells(xlCellTypeFormulas).Offset(1).EntireRow.Insert
End Sub

Give it a try in a copy of your workbook (adjusting the column if needed).

Click to expand...