Format Total but not GRAND Total rows
 

Once a sheet is SubTotalled, need to put some formulas underneath each row
where Total occurs, but not under the Grand Total riow.
Note: The text in every total row contains a dash, ie "-" .

Tried the following, but it doesn't work ....

For Each c In Range("a2:a500")
If InStr((c.Value), "*-*Total") Then
c.Offset(1, 0).EntireRow.Insert Shift:=xlDown

Thanx in advance for any assistance.
- Mike