Матрицы и вектора в VBA Excel

[Beelain007]

Эта задача по условию: Даны 2 прямоугольные матрицы вещественных чисел. Составить для каждой из них вектор каждый элемент которых: среднее арифметическое положительных элементов соответствующий матрицы.
Sub v2s54()
Dim x() As Double, y() As Double, m1 As Integer, m2 As Integer, n1 As Integer, n2 As Integer, i As Integer, j As Integer, s As Double
Range("a1:w100") = Empty
s = 0
m1 = Val(InputBox("m1"))
n1 = Val(InputBox("n1"))
m2 = Val(InputBox("m2"))
n2 = Val(InputBox("n2"))
ReDim x(m1, n1) As Double, y(m2, n2) As Double
For i = 1 To m1
s = 0
For j = 1 To n1
x(i, j) = Rnd * 10
Cells(i, j) = x(i, j)
s = s + x(i, j)
Next j
Cells(i, n1 + 2) = s / n1
Next i
For i = 1 To m2
s = 0
For j = 1 To n2
y(i, j) = Rnd * 10
Cells(i + m1 + 1, j) = y(i, j)
s = s + y(i, j)
Next j
Cells(i + m1 + 1, n2 + 2) = s / n2
Next i
End Sub

Есть аналогичная программа (выше указанная) нужно ее изменить, подскажите что менять вот задание к будущей проге:
Даны 2 прямоугольные матрицы вещественных чисел. Составить для каждой из них вектор каждый элемент которых: каждый элемент которого есть кол-во нулевых элементов массива.
ПОМОГИТЕ ПОЖАЛУЙСТА!