Dim?countA?As?Integer
Dim?countB?As?Integer
For?i?=?1?To?Range("B65536").End(xlUp).Row
If?Cells(i,?2).Value?=?[O2]?And?Cells(i?+?1,?2).Value?=?[O3]?Then
If?Cells(i?+?2,?"L").Value?=?"A"?Then
countA?=?countA?+?1
ElseIf?Cells(i?+?2,?"L").Value?=?"B"?Then
countB?=?countB?+?1
End?If
End?If
Next
[Q3]?=?countA
[R3]?=?countB
End?Sub