VB question to bold subtotals

[dbwiz]

I have the following partial code for a spreadsheet that subtotals Columns N, P, and Q for every change in column A. It is supposed to bold all the totals and Grand Total. However, only N and P are bold on the subtotals as well as Grand total, while Q only bolds the Grand Total. What am I doing wrong?

Range("N" + Trim(Str(LastRecord1))).Select
Selection.Font.Bold = True
With Selection.Interior
.ColorIndex = 40
.Pattern = xlSolid
End With

Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlDouble
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlEdgeRight).LineStyle = xlNone

Range("P" + Trim(Str(LastRecord1)), "Q" + Trim(Str(LastRecord1))).Select

' Value = 0
Selection.Font.Bold = True
With Selection.Interior
.ColorIndex = 40
.Pattern = xlSolid
End With

 

[texasalynn]

instead of a macro why not use a conditional format and use the formula
=ISNUMBER(SEARCH("total",$E1))