Count colourindex - VBA

Maybe:

Sub wrightyrx7()
Dim Sick, Sickness As Worksheet
Dim g, r, a As Long
Dim i As Long

Set Sick = Sheets("Sick")
Set Sickness = Sheets("Sickness (Confidential)")

    g = 0
    r = 0
    a = 0
Sickness.Activate
For i = Range("M" & Rows.count).End(3)(1).Row To 7 Step -1
        If Range("M" & i).Interior.ColorIndex = 4 Then g = g + 1
        If Range("M" & i).Interior.ColorIndex = 3 Then r = r + 1
        If Range("M" & i).Interior.ColorIndex = 45 Then a = a + 1
Next i

Sick.Range("B5").Value = g
Sick.Range("B6").Value = a
Sick.Range("B7").Value = r
End Sub