Counting occurrences of sickness in a roster across a year

The other solution is use UDF, I'm not sure that you can use VBA or not. >_<"

Function SickCount(ChkArea As Range)

    CPrv = ""
    For Each C In ChkArea
        If CPrv <> "SICK" Then
           If C = "SICK" Then
              CCount = CCount + 1
              CPrv = "SICK"
           End If
        End If
        If C = "DUTY" Then CPrv = "DUTY"
    Next
    
    SickCount = CCount

End Function

Usage is =SickCount( Range that you want to check )
E6

=SickCount(F6:AB6)

Regards.