Задача в VBA в диапазоне В2:Ф21 подсчитать количество элементов (циклы)

Sub aaaaa()
 Dim cC As Range, sTw&, sBetw&, m100&, m150&, cnt&
    sTw = 0: sBetw = 0: m100 = 0: m150 = 0: cnt = 0
    Do
        For Each cC In [b2:f21]
            cnt = cnt + 1
            If cC.Value < 20 Then sTw = sTw + cC.Value
            If cC.Value > 40 And cC.Value < 80 Then sBetw = sBetw + cC.Value
            If cC.Value = 100 Then m100 = m100 + cC.Value
            If cC.Value = 150 Then m150 = m150 + cC.Value
        Next
    Loop Until cnt <= [b2:f21].Cells.Count
    MsgBox "SUM of Numb. less than 20:" & Chr(13) & sTw & _
                Chr(13) & String(10, "-") & Chr(13) & _
                "SUM Numb. greater than 40 and less than 80:" & Chr(13) & _
                sBetw & Chr(13) & String(10, "-") & Chr(13) & _
                "SUM Numb. that are equal to 100:" & Chr(13) & _
                m100 & Chr(13) & String(10, "-") & Chr(13) & _
                "SUM Numb. that are equal to 150:" & Chr(13) & m150
End Sub