Если критерии удовлетворены, добавьте новую строку над указанным текстом. Как изменить цвет этого ряда?

Question

Необходимо покрасить новую строку, добавленную с помощью кода ниже. Не можете получить код для этого, не могли бы вы помочь?

Dim sh As Worksheet
Dim LstRw As Long, x

Set sh = Sheets("RAW DATA FILE")

With sh
    LstRw = .Cells(.Rows.Count, "A").End(xlUp).Row

    For x = LstRw To 2 Step -1
          If .Cells(x, 1) Like "Customer account" Then
               .Cells(x, 1).EntireRow.Insert
          End If
    Next x
End With