В каждой строке матрицы сравнить количество положительных и отрицательных элементов

Option Explicit
Option Base 1
 
Sub zadacha_1()
Dim mass(10, 10) As Long, i, j, p1, o1, min, max, arf, geom, summ, K, F, SR, Q, m1, m2, n1, n2
Randomize
 
p1 = 0
o1 = 0
min = 101
max = -101
arf = 1
geom = 1
K = 0
F = 0
 
    For i = 1 To 10
      
 
        For j = 1 To 10
            mass(i, j) = Int(Rnd * 100) - 100
            Cells(i, j) = mass(i, j)
            
                If mass(i, j) < min Then
                    mass(i, j) = min
                    m1 = i
                    m2 = j
                ElseIf mass(i, j) > max Then
                    mass(i, j) = max
                    n1 = i
                    n2 = j
                End If
                
                summ = mass(i, j) + summ
                
                If mass(i, j) > 0 Then p1 = p1 + 1
                If mass(i, j) < 0 Then o1 = o1 + 1
                    
            Next j
            geom = (geom * mass(i, j)) ^ (1 / 2)
            arf = summ / 10
        Range("L1:U10") = mass(i, j)
        Range("L1:U10").Interior.Color = RGB(123, 232, 233)
        
    Next i
   
                SR = Q / K
                
                If mass(i, j) < 0 Then
                    K = K + 1
                    Q = Q + mass(i, j)
                End If
                
                If p1 > o1 Then
                        min = arf
                    Cells(m1, m2) = arf
                    ActiveCell.Interior.Color = RGB(255, 255, 0)
                    
                ElseIf p1 < o1 Then
                    max = geom
                       Cells(n1, n2) = geom
                    ActiveCell.Interior.Color = RGB(255, 255, 255)
                Else: p1 = o1
                    mass(i, 5) = SR
                    Cells(i, 5) = SR
                    ActiveCell.Interior.Color = RGB(205, 212, 0)
                    End If
                    
                    
 
End Sub