Ändern Sie die Farbe der ganzen Zeile vor oder nach dem einfügen von Werten auf einem Blatt VBA

Ich Versuche, ändern Sie den Wert einer Reihe bestimmen, wenn ein Zustand passiert, und ich dachte, es zu tun, nach dem einfügen gemacht wurde, aber vielleicht ist es einfacher, vor dem einfügen (?) Die Sache ist die, ich habe beide ausprobiert, und ich mache es falsch, weil es nicht funktioniert

Code:

With ThisWorkbook.Worksheets("Site Configuration List")
       ' Tried this .Range("A").EntireRow.Interior.Color = 49407
        .Range("A" & Rows.Count).End(xlUp).Offset(1).Value = Code
        .Range("B" & Rows.Count).End(xlUp).Offset(1).Value = Name
        .Range("C" & Rows.Count).End(xlUp).Offset(1).Value = "" & Contract & ""
        .Range("D" & Rows.Count).End(xlUp).Offset(1).Value = SiteCode
        .Range("E" & Rows.Count).End(xlUp).Offset(1).Value = SiteName
        .Range("G" & Rows.Count).End(xlUp).Offset(1).Value = Approver
        .Range("K" & Rows.Count).End(xlUp).Offset(1).Value = ItemCode
        .Range("M" & Rows.Count).End(xlUp).Offset(1).Value = RequiredQty
        .Range("N" & Rows.Count).End(xlUp).Offset(1).Value = ControlFlag
    If Color = 0 Then
       ', this .Offset(-1).Interior.Color = 49407
        ',this .Interior.Color = 49407
     'and this .EntireRow.Interior.Color = 255
    Else


    End If
    End With

Offensichtlich nicht zur gleichen Zeit, aber keine von denen funktioniert. Was mache ich falsch und wie kann ich es beheben? Ich bin neu in VBA und einige der einfachsten Dinge, die in der Regel nehme mir mehr Zeit, um herauszufinden,. Was ich verwendet habe, um zu versuchen, zu erreichen, was ich will, ich habe es von anderen ähnlichen Fragen. Der Aufruf der sub in dem obigen code implementiert ist, innerhalb einer Schleife, aber mit jeder eines der Dinge, die ich ausprobiert habe, ist, wenn es um die Zeile, das Programm bleibt einfach stehen. Keine Fehler oder irgendetwas.