Для каждой стоки определить все ли элементы строки положительны - VB

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

Дан двумерный массив А. 1)Для каждой стоки определить все ли элементы строки положительны,если все элементы в строке положительны напротив нее вывести YES,соответственно если нет NO. 2)Вычислить количество строк, содержащих только положительные значения. 3)Сформировать новый массив из элементов < 0,расположенных в строках до первого неотрицательного. задачу решила написать из 3 макросов 1)

Sub m1()
Dim A(1 To 10, 1 To 10) As Integer
Dim n As Integer
Dim m As Integer
Dim flag As Boolean
For i = 1 To n
For j = 1 To m
A(i, j) = Cells(i, j)
Next j
Next i
flag = False
For i = 1 To n
If A(i, j) < 0 Then
flag = True
End If
i = i + 1
If flag Then
Cells(i, 7) = "yes"
Else
Cells(i, 7) = "no"
End If
Next i
End Sub

Sub m2()
Dim A(1 To 10, 1 To 10) As Integer
Dim n As Integer
Dim m As Integer
Dim k As Integer
n = 6
m = 6
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
If A(i, j) < 0 Then
k = k + 1
End If
Cells(8, 6) = "k="
Cells(8, 7) = k
Next i
End Sub

3) не могу написать скажите пожалуйста в чем ошибка ,у меня ни 1 ни 2 не работают правильно

Решение задачи: «Для каждой стоки определить все ли элементы строки положительны»

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

                            Sub m1()
 
Dim S As String
Dim n As Integer
Dim m As Integer
Dim flag As Boolean
Dim K As Integer
n = 6
m = 6
Dim L
 
For i = 1 To n
flag = True
For j = 1 To m
If Cells(i, j) < 0 Then flag = False
Next j
Cells(i, j) = flag
Next i
 
Cells(8, 6) = "k ="
For j = 1 To m
If Cells(j, 7) = True Then K = K + 1
Next j
Cells(8, 7) = K
 
 
L = 1
For i = 1 To n
 For j = 1 To m
    If Cells(i, j) <= 0 Then
    Cells(10, L) = Cells(i, j)
    L = L + 1
    Else: Exit For
    End If
 Next j
Next i
End Sub
                        