Color row in range if any cell of that range is value

try this

Private Sub Worksheet_Change(ByVal Target As Range)
myrow = ActiveCell.Row
Dim myrange As Range
 If Not Intersect(Target, Range("o3:w1000")) Is Nothing Then
 Dim x As Long, strCells As String
     
    x = Target.Row
    strCells = "O" & x & ":W" & x & ""
    Range(strCells).Interior.ColorIndex = 15
 End If

End Sub