' сортировка двумерного массива по столбцу N
    N = 5
    Dim Check As Boolean
    ReDim tmpArr(FinalColumn) As Variant
    Do Until Check
        Check = True
        For i = 1 To FinalRow - 1
            If Val(R_data(i, N)) < Val(R_data(i + 1, N)) Then
                For j = 1 To FinalColumn
                    tmpArr(j) = R_data(i, j)
                     R_data(i, j) = R_data(i + 1, j)
                     R_data(i + 1, j) = tmpArr(j)
                    Check = False
                Next
            End If
        Next
    Loop