Data Validation If Statement

The macro was written to only work on cell C1 as was indicated in the original post. Below I has supplied a new code to work for any cell in column C and incorporate the newly supplied information.

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("C:C")) Is Nothing Then
    If UCase(Target) = "NO" Then
        Target.Offset(, 4).Resize(1, 5).Value = 0
    ElseIf UCase(Target) = "YES" Then
        Target.Offset(, 4) = 1
        Target.Offset(, 5) = 1
        Target.Offset(, 6) = 500
        Target.Offset(, 7) = 200
        Target.Offset(, 8) = 400
    End If
End If

End Sub