По Массиву А получить массив В

[DemonNikita]

Задание: По массиву А получить массив В, присвоив его k-му элементу значение true, если элементы k-й строки массива А упорядочены по убыванию и значение false иначе
Я уже немного написал, здесь выстраивается просто квадратная матрица заданного размера из произвольных чисел, но нет самого механизма как получить массив В, да и скорее всего неправильно грузятся числа в массив, помогите разобраться

Public Sub MassAB()
Dim mka() As Integer
Dim B() As String
Dim mk() As Integer
Dim i%
Dim nk%
Dim ns%
Dim j As Integer


ns = ActiveCell.Row
nk = ActiveCell.Column
razm = InputBox("Введите размерность", , 5)
For i = 1 To razm
For j = 1 To razm
Cells(i, j) = Int(Rnd * 100 + 1)
Next j
Next i

Cells(1, 1).Select
Selection.End(xlDown).Select
ns = ActiveCell.Row
Selection.End(xlToRight).Select
nk = ActiveCell.Column
For j = 1 To nk
For i = 1 To ns
ReDim mka(1 To ns, 1 To nk)
'mka(i, j) = Cells(i, j)
Next i
Next j
ReDim B(1 To ns)


For i = 1 To ns
For j = 1 To nk
If mka(i, j + 1) > mka(i, j) Then



End Sub