DavidC:
Since you asked for an automated solution here's one. The code looks a bit lengthy at first but it formats using a union range, not just one row at a time, to save a little system effort. Modify for subtotal column and format options (color index, bold etc). Thanks to Celia from a while back with the foundation of this code.
By the way, regarding your second post as follow-up to your first less than an hour before, some of us have lives during the day and can't get to these questions until this lovely hour of the morning. But we do what we can to assist. Here's the code to get you started.
''''''''''''''''''''''''''
Sub SubtotalFormat()
Application.ScreenUpdating = False
Dim myCol As Range, cell As Range, RtoSel As Range
Dim LtoSel As String
Set myCol = Range(Range("A1"), Range("A65536").End(xlUp))
LtoSel = "Total"
For Each cell In myCol
If Right(cell, 5) = LtoSel Then
If RtoSel Is Nothing Then
Set RtoSel = cell
Else
Set RtoSel = Application.Union(RtoSel, cell)
End If
End If
Next
With RtoSel.EntireRow
.Interior.ColorIndex = 3
.Font.FontStyle = "Bold"
End With
[A1].Select
Application.ScreenUpdating = True
End Sub
''''''''''''''''''''''''''''''