Formatting with colors with if condition in VBA

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

As I am trying to automate it .
I got something here from google and it is formatting for entire row with the given condition. I need to format only the filled cells. Could you please edit the below macro and see that it will format only the cells which are filled.

Sub test3()
Dim i As Long, j As Long, rw As Long, bDel As Long
Dim rng As Range, cel As Range
Dim arrWords
Dim xlCalc As XlCalculation
     arrWords = Array("Total") ' edit the array as required
     xlCalc = Application.Calculation
     Set rng = Range("B1:B200")
     For rw = rng.Rows(rng.Rows.Count).Row To rng.Rows(1).Row Step -1
             For j = 0 To UBound(arrWords)
                     If InStr(1, rng(rw, 1), arrWords(j), vbTextCompare) Then
                             bDel = True
                             rng.Parent.Rows(rw).EntireRow.Select
                             With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0.799981688894314
        .PatternTintAndShade = 0
    End With
        Selection.Font.Bold = True
                             
                             Exit For
                     End If
             Next
     Next
     Application.Calculation = xlCalc

End Sub

Any help is appreciated

Here is a macro I'm using. You just need the RGB color code (google for codes).

Sub ColorCells()
'Change A1:M250 to your needed range
For Each cl In Range("A1:M250")
       Select Case cl.Value
       'Yellow
       'Add or remove as many elements as you want. 
       Case "dog", "cat", "pig"
         'use google to search for RGB color codes
         cl.Interior.Color = RGB(255, 255, 0)
       'Blue
       Case "horse", "bird", "duck"
         cl.Interior.Color = RGB(153, 206, 255)
       End Select
   Next
End Sub