Построить вектор, каждый элемент которого равен сумме строк матрицы, деленной на элемент главной диагонали этой же строки

Sub Diag()
Dim arrS(), arrDIVISION, mARR(), cC As Range
Dim mSUM&, N&, i&, j&, c&, diagNUMB&
    N = 10: ReDim mARR(1 To N, 1 To N)
    ActiveSheet.Cells.Delete
'--CreateSourceARRAY----------------------------------------------
    Randomize
        For Each cC In Range(Cells(1, 1), Cells(N, N))
            mARR(cC.Row, cC.Column) = Int((100 * Rnd()) + 1)
        Next
'==End==CREATE===========================================
 
 '--TASK1---VectorB--------------------------------------------------
        ReDim arrDIVISION(1 To N)
        For i = LBound(mARR, 1) To UBound(mARR, 1)
            diagNUMB = mARR(i, i): mSUM = 0
                For j = LBound(mARR, 1) To UBound(mARR, 1)
                    mSUM = mSUM + mARR(i, j)
                Next 'j
            arrDIVISION(i) = Round(mSUM / diagNUMB, 2)
        Next 'i
' ==EndWithVECTOR==B=====================================
 
'--TASK2---VectiorC-------------------------------------------------
    ReDim arrS(1 To N - 1)
        For i = LBound(mARR, 1) + 1 To UBound(mARR, 1)
            c = i - 1: mSUM = 0
                For j = LBound(mARR, 2) To c
                    mSUM = mSUM + mARR(i, j)
                Next 'j
            arrS(i - 1) = mSUM
        Next 'i
' ==EndWithVECTOR==C=====================================
 
 '--MY--Results------------------------------------------------------
    'source array
    With Cells(ActiveSheet.UsedRange.Row - 1 + _
                        ActiveSheet.UsedRange.Rows.Count, 1)
            .Offset(1, 0).Value = "MY SOURCE ARRAY"
            .Offset(3, 0).Resize(UBound(mARR, 1), _
                            UBound(mARR, 2)).Value = mARR
    End With
    'vector B
    With ActiveSheet.Cells(Rows.Count, 1).End(xlUp)
        .Offset(2, 0).Value = "MY VECTOR " & Chr(34) & "B" & _
                        Chr(34) & " (divided by the value of diagonal)"
        .Offset(3, 0).Resize(1, UBound(arrDIVISION)).Value = arrDIVISION
    End With
    'vector C
    With ActiveSheet.Cells(Rows.Count, 1).End(xlUp)
        .Offset(2, 0).Value = "MY VECTOR " & Chr(34) & "C" & _
                        Chr(34) & " (sum of the values below the diagonal)"
        .Offset(3, 0).Resize(1, UBound(arrS)).Value = arrS
    End With
'==End==Results==================================
    Erase mARR, arrDIVISION, arrS
    MsgBox Space(12) & "D O N E!"
End Sub