Определение строки, сумма элементов которой максимальна

Sub расчет()
      Sheets("Лист3").Select
ActiveSheet.Unprotect
Set Region = Sheets("Лист3"). _
Cells(2, 2).CurrentRegion
M = Region.Rows.Count - 1
N = Region.Columns.Count - 1
Range(Cells(2, 2), Cells(M, N)).Select
 
ReDim a(1 To M, 1 To N), b(1 To N), s(1 To M), d(1 To N)
 For i = 1 To M
    For j = 1 To N
      
   a(i, j) = Cells((i + 1), (j + 1)).Value
     Next j
      Next i
       Selection.Interior.ColorIndex = xlNone
Range("B2").Select
      For i = 1 To M
      
      For j = 1 To N
      
      If a(i, j) < 0 Then
      s(i) = s(i) + a(i, j)
      End If
      
      Next j
     Worksheets("Лист3").Cells(i + 1, (N + 3)).Value = s(i)
      Next i

Sub Input_Matrix()
Dim N As Integer, M As Integer, B(), A(), i As Integer, j As Integer, sStr As String, vSum, iInd As Integer
N = InputBox("M:")
M = InputBox("N:")
ReDim A(1 To M, 1 To N)
ReDim B(1 To N)
max = 0
For i = 1 To N
    For j = 1 To N
        A(i, j) = InputBox("Ââåäèòå ýëåìåíò ìàññèâà:")
        sStr = sStr & A(i, j) & Space(3)
        If A(i, j) < 0 Then vSum = vSum + A(i, j)
    Next
    If vSum < max Then max = vSum: iInd = i
    sStr = sStr & vbNewLine
Next
sStr = sStr & String(N * 3, "-") & vbNewLine
For i = 1 To N
    B(i) = A(iInd, i)
    sStr = sStr & B(i) & Space(3)
Next
MsgBox sStr
End Sub