<pre class="ipsCode prettyprint lang-html prettyprinted" style="box-sizing: border-box; font-family: monospace, monospace; font-size: 13px; overflow: auto; white-space: pre-wrap; word-break: break-word; background-image: ; background-position-x: ; background-position-y: ; background-size: ; background-repeat-x: ; background-repeat-y: ; background-attachment: ; background-origin: ; background-clip: ; clear: both; direction: ltr; overflow-wrap: normal; margin-top: 0px; margin-bottom: 0px; border-radius: var(--radius-1); padding: 2px; border-color: rgb(136, 136, 136); border-style: solid; border-top-width: 1px; border-bottom-width: 1px; border-left-width: 1px; border-image: initial; color: rgb(53, 60, 65); border-right-width: 4px !important;">
<span class="pln" style="box-sizing: border-box; color: rgb(0, 0, 0);">Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 8 And Target.Row < 17 And Target.Column = 5 Then
Dim C As Range, a As Boolean, b As Boolean
For Each C In Range("E9:E16")
If InStr(C.Value, "Positive") And (C.Row = 13 Or C.Row = 14) Then
    If Not a Then Range("C13").Value = "Titer250": a = True
End If
If InStr(C.Value, "+") Or InStr(C.Value, "yes") Then
    If Not b Then Range("C10").Value = "Positive": b = True
End If
Next C
If Not a Then Range("C13").Value = "Nil"
If Not b Then Range("C10").Value = "Negative"
End If
End Sub</span></pre>