If you really need a macro perhaps try
Option Explicit

Sub ColorRow()
Dim F  As Range
    For Each F In Range([A1], Range("A" & Rows.Count).End(xlUp))
        If (F.Value = 1) Then F.EntireRow.Interior.Color = 15773696
    Next
End Sub