В каждой строке матрицы найти количество элементов,меньших среднего арифметического всех элементов этой строки

Sub CommandButton0_Click() 'считает элементы строк матрицы, меньшие их среднего
Dim stroka, cel, sredne, k, i, Итог$
 
With Selection
    For Each stroka In Selection.Rows ' идём по строкам выделенного диапазона
                                      ' Selection.Columns.Count - длина строк
        i = i + 1: k = 0
        sredne = WorksheetFunction.Average(stroka) ': MsgBox i & ") ср.: " & sredne
        
        For Each cel In stroka.Cells ' идём по клеткам (Cells) i-й строки
            If cel < sredne Then
                k = k + 1 'считаем её элемент, который меньше среднего по строке
                cel.Interior.Color = vbRed      'подкрашиваем этот элемент
            End If
        Next
        Итог = Итог & "Строка " & i & ": число искомых элементов равно " & k & Chr(13)
    Next
End With
    MsgBox Итог
End Sub