Поэлементно вычесть последнюю строку матрицы из всех строк, кроме последней

Option Explicit
Public Sub Main()
    Dim lngX As Long, lngY As Long, lngarrMatrix() As Long, lngCurVal As Long, lngCouter As Long, _
        lngN As Long, lngM As Long
    Const conLongMaxVal As Long = &H10000
    lngN = CInt(InputBox("Введите количество строк матрицы"))
    lngM = CInt(InputBox("Введите количество столбцов матрицы"))
    ReDim lngarrMatrix(lngN, lngM)
    Randomize
    For lngX = 0& To lngN
        For lngY = 0& To lngM
            lngCurVal = Rnd * conLongMaxVal
            If ((Val(Rnd * 2&) = 1&) And (lngCurVal <> conLongMaxVal)) Then
                lngCurVal = lngCurVal * (-1)
            End If
            lngarrMatrix(lngX, lngY) = lngCurVal
        Next lngY
    Next lngX
    Debug.Print "Изначальная матрица:"
    OutPutArray lngarrMatrix()
    For lngX = 0& To lngN - 1&
        For lngY = 0& To lngM
            lngarrMatrix(lngX, lngY) = lngarrMatrix(lngX, lngY) - _
                lngarrMatrix(lngN, lngY)
        Next lngY
    Next lngX
    Debug.Print "Матрица после вычитания:"
    OutPutArray lngarrMatrix()
End Sub
Private Sub OutPutArray(ByRef ArrayPlaceHolder() As Long)
    Dim lngX As Long, lngY As Long, strBuff As String
    For lngX = 0& To UBound(ArrayPlaceHolder(), 1)
        For lngY = 0& To UBound(ArrayPlaceHolder(), 2)
            strBuff = strBuff & ArrayPlaceHolder(lngX, lngY) & "; "
        Next lngY
        Debug.Print strBuff
        strBuff = vbNullString
    Next lngX
End Sub