Для заданного массива А(4,6) вычислить среднее арифметическое значение положительных элементов каждой строки

Sub InputArray5() 
'******************************************************* 
' Заполнить двумерный массив при помощи датчика случайных чи-
'сел. Вычислить сумму и среднее арифметическое всех'элементов 
'******************************************************* 
Dim A() As Variant 
Dim strMes As String 
Title = "Заполнение двумерного массива" Randomize 
M = InputBox("Число строк массива", Title) 
N = InputBox("Число строк массива", Title) 
ReDim A(1 To M, 1 To N) 
For i = 1 To M 
For j = 1 To N 
ArrayValue = 100 - Int((200 * Rnd) + 1) 
A(i, j) = ArrayValue 
Next j 
Next i 
Sum = 0 
For i = 1 To M 
For j = 1 To N 
Sum = Sum + A(i, j) 
msgString = msgString & A(i, j) & ", " 
Next j 
msgString = msgString & Chr(13)
Next i 
MsgBox "Массив А:" & Chr(13) & msgString, , "Вывод массива" mA = Sum / (M * N) 
MsgBox "Массив А:" & Chr(13) & "Сумма элементов = " & Sum & Chr(13) & "Среднее арифметическое = " 
& mA, , "Вывод массива" 
End Sub

Sub P1()
Dim a(4, 6) As Double, B(4) As Double
Dim i As Long, j As Long
Dim Сумма As Double, Кол As Long
'Заполняем массив из Excel.
For i = 0 To 4 Step 1
    For j = 0 To 6 Step 1
        a(i, j) = Cells(i + 1, j + 1).Value
    Next j
Next i
'Обработка массива.
For i = 0 To 4 Step 1
    For j = 0 To 6 Step 1
        If a(i, j) > 0 Then
            Сумма = Сумма + a(i, j)
            Кол = Кол + 1
        End If
    Next j
    B(i) = Сумма / Кол
    Сумма = 0
    Кол = 0
Next i
'Выводим массив B в Excel на др. лист.
For i = 0 To 4 Step 1
    Worksheets(2).Cells(i + 1, 1).Value = B(i)
Next i
End Sub

Sub P1()
Dim a(4, 6) As Double, B(4) As Double
Dim i As Long, j As Long
Dim Сумма As Double, Кол As Long
'Заполняем массив из Excel.
For i = 0 To 4 Step 1
    For j = 0 To 6 Step 1
        a(i, j) = Cells(i + 1, j + 1).Value
    Next j
Next i
'Обработка массива.
For i = 0 To 4 Step 1
    For j = 0 To 6 Step 1
        If a(i, j) > 0 Then
            Сумма = Сумма + a(i, j)
            Кол = Кол + 1
        End If
    Next j
    B(i) = Сумма / Кол
    Сумма = 0
    Кол = 0
Next i
'Выводим массив B в Excel на др. лист.
For i = 0 To 4 Step 1
    Worksheets(2).Cells(i + 1, 1).Value = B(i)
Next i
End Sub

Sub P1()
    Dim A(3, 5) As Double, B(3) As Variant
    Dim i As Long, j As Long
    Dim Ñóììà As Double, Êîë As Long
    'Çàïîëíÿåì ìàññèâ äàííûìè èç Excel.
    For i = 0 To 3
        For j = 0 To 5
            A(i, j) = Sheets(1).Cells(i + 1, j + 1)
        Next j
    Next i
    'Îáðàáîòêà ìàññèâà.
    For i = 0 To 3
        For j = 0 To 5
            If A(i, j) > 0 Then
                Ñóììà = Ñóììà + A(i, j)
                Êîë = Êîë + 1
            End If
        Next j
        If Êîë > 0 Then B(i) = Ñóììà / Êîë Else B(i) = "Íå îïðåäåëåíî."
        Ñóììà = 0
        Êîë = 0
    Next i
    'Âûâîäèì ìàññèâ B â Excel íà äð. ëèñò.
    If ActiveWorkbook.Worksheets.Count < 2 Then
        MsgBox "Íåêóäà âûâîäèòü äàííûå: â êíèãå òîëüêî îäèí ëèñò."
    Else
        For i = 0 To 3
            Sheets(2).Cells(i + 1, 1) = B(i)
        Next i
        Sheets(2).Activate
    End If
End Sub

Public Function МАТРИЦА(x As Range) As Variant
Dim a()
Dim Sum As Integer, Sar As Integer 'где Sum сумма,Sar-среднее арифметическое
 
n = Selection.Rows.Count 'считает кол-тво строк
m = Selection.Columns.Count 'считает кол-тво столбцов
ReDim a(m - 1, n - 1) 'чтобы матрица начиналась с 1 ,а не с 0
Sum = 0
For i = 1 To n
For j = 1 To m
Sum = Sum + a(i, j) ' сумма эт-тов матрицы
Next j
Next i
Sar = Sum / (m * n) 'среднее арифметич.
Cells(7, 9) = Sar ' результат выводит в ячейку
End Function