Нахождение таких элементов матрицы, которые больше других в своем столбце

Sub ComparisonOfValues()
Dim i&, j&, sR&, sC&, rMATR&, cMATR&, counter&, mstr$
Dim mARR(), cC As Range, mRNG As Range
    sR = 4: sC = 3: rMATR = 10: cMATR = 7: Randomize
    Do
        With ActiveSheet
            .Cells.Delete
            Set mRNG = Range(.Cells(sR, sC), _
                    .Cells(sR - 1 + rMATR, sC - 1 + cMATR))
                For Each cC In mRNG
                    cC.Value = Int((100 * Rnd()) + 1)
                Next
        End With
        counter = 1
        ReDim mARR(1 To counter)
        mARR(1) = "Row" & " -- " & "COL." & " -- " & "N. L." & _
                                        " -- " & "MAX" & " -- " & "N. R."
        With mRNG
            For i = 1 To .Columns.Count - 1
                For Each cC In .Columns(i).Cells
                    If cC.Value = Application.Max(.Columns(i)) Then
                        If cC.Offset(0, -1).Value < cC.Value And _
                                    cC.Offset(0, 1).Value > cC.Value Then
                            cC.Interior.ColorIndex = 15: counter = counter + 1
                            ReDim Preserve mARR(1 To counter)
                            mARR(counter) = cC.Row & ";" & Space(10) & cC.Column & ";" & _
                                       Space(10) & cC.Offset(0, -1).Value & ";" & _
                                            Space(10) & cC.Value & ";" & Space(10) & cC.Offset(0, 1).Value
                        End If
                    End If
                Next
            Next 'i
        End With
        mstr = vbNullString
            If UBound(mARR) < 2 Then
                MsgBox Space(20) & "No MATCH!" & Chr(13) & Chr(13) & _
                        "WE WILL TRY WITH ANOTHER ARRAY."
                    Else
                        For i = LBound(mARR) To UBound(mARR)
                            mstr = mstr & mARR(i) & Chr(13)
                        Next 'i
                        MsgBox mstr
            End If
    Loop Until UBound(mARR) >= 2
    MsgBox Space(12) & "D O N E!"
End Sub