Помогите создать макрос в Exele находящий и считающий числа, попадающие в задаваемый диапазон значений [-a;a],

Public Sub callc()

a_max = 1   ' верхний диапазон значений
a_min = -1  ' нижний диапазо значений

row_count = 5   ' кол-во строк
col_count = 4   ' кол-во столбцов

find_count = 0  ' кол-во найденных значений удовлетворяющие условие

For i = 1 To row_count
    For j = 1 To col_count
        If (Cells(i, j) <= a_max) And (Cells(i, j) >= a_min) Then
            find_count = find_count + 1
            ' <- сдесь можешь чтото вычислять cells(i, j) - это число удовлетворящий твое условие
       End If
    Next j
Next i

MsgBox (find_count) ' вывод кол-во найденных чисел, можешь удалить строку

End Sub