I have 50 rows in which I need to format the entire filled cells with a pirticular format.
The below macro is which i want to use for formatting that filled cells if the rows has a word Total then formatting should apply.

The formatting macro which i have is 

Sub Format()
    Range("B3:J3").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0.799981688894314
        .PatternTintAndShade = 0
    End With
    Range("B3:J3").Select
    Selection.Font.Bold = True
End Sub