Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 10 Or Target.Column = 12 Then
Select Case Target.Column
Case 10
If Target <> "" And Target.Offset(, 2) <> "" And IsNumeric(Target.Offset(, 2)) Then
Cells(Target.Row, 14) = 0
Else
Cells(Target.Row, 14) = ""
End If
Case 12
If Target <> "" And IsNumeric(Target) And Target.Offset(, -2) <> "" Then
Cells(Target.Row, 14) = 0
Else
Cells(Target.Row, 14) = ""
End If
Case Else
End Select
End If
End Sub