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

Формулировка задачи:

Дан столбец чисел. Найти среднее этих чисел и выделить красным цветов те числа, которые больше среднего. Вот код, который написал я. Всё бы хорошо, но не получается с выделением цвета ячейки, пожалуйста помогите

Public Function CountMiddle(Mass As Range)
 
Dim i As Integer 'переменная для цикла
Dim bufer As Integer 'переменная для хранения среднего
Dim bufer2 As Integer 'сколько элементов?
 
bufer2 = 0
bufer = 0

For i = 1 To Mass.Count 'идём в цикле по строкам
 bufer = bufer + Val(Mass(i))
 bufer2 = bufer2 + 1
 Next i
 bufer = bufer / bufer2 'считаем среднее
 
 For i = 1 To Mass.Count
 
  If (Cells(i, 1) > bufer) Then 'если число в ячейке больше среднего красим его в красный
  Cells(i, 1).Interior.ColorIndex = vbRed 
  End If
  Next
 
 CountMiddle = bufer 'возвращаем значение из функции
  
End Function

Решение задачи: «В Excel дан столбец чисел, найти среднее этих чисел и выделить красным цветом те числа, которые больше среднего»

textual
                            Листинг программы 
                        

                            Cells.FormatConditions.Delete
Range("A2:A9").FormatConditions.Add(Type:=xlCellValue, Operator:=xlGreater, _
  Formula1:="=СРЗНАЧ($A$2:$A$9)").Interior.Color = vbRed
                        