Все элементы массива, большие среднего арифметического, с целой частью, заканчивающейся на 2, выделить цветом

 Sub лабораторная_5()
ActiveSheet.Rows(1).Clear
Dim a As Long, b As Long, N As Integer, i As Integer, s As Integer, c As Integer
Randomize Timer
N = InputBox("Введите количество чисел:")
b = 1
If N > 0 Then
For i = 1 To N
 a = Int((2800 * rnd) - 400
    Cells(1, i) = a
Next i
b = WorksheetFunction.Average(Range("A1:ZZ1"))
For s = 1 To N
If Cells(1, s) > b Then
   Cells(1, s).Interior.Color = vbRed
   c = c + 1
   End If
   Next s
    Cells(2, 2) = c
    Else
    MsgBox "Введите число больше нуля!!!"
    End If
End Sub

Sub лабораторная_5()
    ActiveSheet.Rows(1).Clear
    Dim A() As Single, b As Single, N As Integer, i As Integer, s As Integer, c As Integer
    Randomize Timer
    N = InputBox("Введите количество чисел:", , 100)
    b = 1
    If N > 0 Then
       ReDim A(1 To N)
       For i = 1 To N
          A(i) = Round(2800 * Rnd - 400, 2)
          Cells(1, i) = A(i)
       Next i
       b = WorksheetFunction.Average(Range("A1:ZZ1"))
       For i = 1 To N
         If A(i) > b And Right$(Fix(A(i)), 1) = "2" Then
             Cells(1, i).Interior.Color = vbRed
             c = c + 1
          End If
       Next i
       Cells(2, 2) = c
    Else
       MsgBox "Введите число больше нуля!!!"
    End If
End Sub