Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Column
Case 1
If Target.Row > 5 And Target.Row < 37 Then
If IsNumeric(Target.Value) And Target.Value > 0 Then
Target.Offset(0, 3).Value = 0
End If
End If
Case 18, 31
If Target.Row > 5 And Target.Row < 37 Then
If IsNumeric(Target.Value) And Target.Value > 0 Then
Target.Offset(0, 1).Value = 0
End If
End If
End Select
End Sub