Посчитать количество элементов массива, равных 3 - VBA

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

Нужно ввести массив с клавиатуры и подсчитать все введенные элементы равные 3 (т.е я ввел 5 раз число 3 и прога должна посчитать сколько чисел 3 было введено), но в место этого, у меня выводит 0. Ввод работает, проблема в цикле, но что-то я не пойму где и как. Заранее спасибо.

Sub Mas4()
Dim i, j, k, A(1 To 5, 1 To 5) As Integer
n = InputBox("Введите кол-во строк n")
m = InputBox("Введите кол-во столбцов m")
With ActiveSheet
For i = 1 To n
For j = 1 To m
Worksheets("Лист1").Cells(i, j) = CDbl(InputBox(" Введите " & j & " элементы " & i & " строки "))
Next j
Next i
 
For i = 1 To n
    For j = 1 To m
        A(i, j) = Cells(i, j)
    Next j
Next i
k = 0
For i = 1 To n
    For j = 1 To m
        If A(i, j) = 0 Then
            k = k + 1
        End If
    Next j
Next i
 
MsgBox " Кол-во элементов числа = 3:" & k
End With
End Sub

Решение задачи: «Посчитать количество элементов массива, равных 3»

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

                            Sub Mas4()
Dim i, j, k, A()
n = InputBox("Введите кол-во строк n")
m = InputBox("Введите кол-во столбцов m")
k=0
For i = 1 To n
For j = 1 To m
Worksheets("Лист1").Cells(i, j) = CDbl(InputBox(" Введите " & j & " элементы " & i & " строки "))
if Worksheets("Лист1").Cells(i, j)=3 then k=k+1
Next j
Next i
A()=Worksheets("Лист1").range(Cells(1,1),Cells(n,m)).Value 'эта строка как бы и не нужна но если далее нужен массив то ...пусть будет"
MsgBox " Кол-во элементов числа - 3: равно" & k
End Sub
                        