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

[squidmark]

I need to look at each cell in column F, and if the last 5 characters in the cell = "Total", then insert a blank row below that cell.

The "Total" is being generated by subtotals. so once those subtotals have run, I need to add a space between each group.

Any help would be greatly appreciated.

 

[Peter_SSs]

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

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).

 

[squidmark]

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

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).

That was perfect. Thank You.