Посчитать сумму положительных элементов матрицы

 Option Explicit
Dim i As Integer
Dim m As Integer
Dim n As Integer
Dim x As Integer
Dim y As Integer
Dim s As Integer
Dim A() As Double
Dim j As Integer
Dim f As Single
Private Sub CommandButton1_Click()
m = Mrow
n = Ncol
'MsgBox m
'MsgBox n
ReDim A(1 To m, 1 To n)
TabA m, n, A()
'MsgBox A(1, 1)
 
    For i = 1 To m
        For j = 1 To n
            A(i, j) = Cells(i, j)
        Next j
    Next i
    
    For i = 1 To m
    For j = 1 To n
  
    If A(i, j) Then Cells(i + 14, j) = A(i, j)
  Cells(13, 2) = "Ïîëó÷åííàÿ ìàòðèöà"
        Next j
Next i
       x = 9
       y = 15
    Cells(15, 9) = "i"
    For i = 1 To m
    For j = 1 To n
    If A(i, j) < 0 Then Cells(y, x) = i: y = y + 1
    Cells(13, 8) = "¹ ñòðîê îòðèöàòåëüíûõ ýëåìåíòîâ "
Next j
Next i
End Sub
Sub TabA(m As Integer, n As Integer, A() As Double)
For i = 1 To m
  For j = 1 To n
     A(i, j) = Cells(i, j).Value
  Next j
Next i
 
End Sub
Function Mrow() As Integer
Dim i As Integer
i = 1
Do Until IsEmpty(Cells(i, 1))
i = i + 1
Loop
Mrow = i - 1
End Function
 
Function Ncol() As Integer
Dim j As Integer
j = 1
Do Until IsEmpty(Cells(1, j))
j = j + 1
Loop
Ncol = j - 1
End Function