In the visual basic editor, put this code in the section for which ever worksheet this applies to:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = Range("C1").Address Then
    If Target = "No" Then
        Target.Offset(, 1).Resize(1, 3).Value = 0
    End If
End If

End Sub