lcLastCell = oExcel.ActiveCell.SpecialCells(xlLastCell).Address()
oExcel.Range("B9:" + lcLastCell).Select
oExcel.Selection.FormatConditions.Delete
oExcel.Selection.FormatConditions.Add(xlformula,'=RIGHT($B9,5)="Total"')
With oExcel.Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
EndWith
With oExcel.Selection.FormatConditions(1).Borders(xlBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
ENDWITH