Sub Сортировка()
    
    Dim mass(4, 9) As Variant
    
    Const nLine As Byte = 4
    Const nColumn As Byte = 9
    
    ' массив из 5 строки и 10 столбцов
    For i = 0 To nLine
        For j = 0 To nColumn
            mass(i, j) = Cells(4 + i, 2 + j).Value
        Next j
    Next i
    
    'сортировка
    Dim iter_ As Byte
    iter_ = nLine * 4
    While iter_ > 0
    For i = 0 To nLine
    
    
        Dim iter As Byte
        iter = nLine
        While iter > 0
        For j = 0 To nColumn - 1
            If mass(i, j) > mass(i, j + 1) Then
                Dim temp As Variant
                temp = mass(i, j)
                mass(i, j) = mass(i, j + 1)
                mass(i, j + 1) = temp
            End If
        Next j
        iter = iter - 1
        Wend
        
      Dim k As Byte
      k = i
        If k < 4 Then
            If mass(k, nColumn) > mass(k + 1, 0) Then
                Dim temp_1 As Variant
                temp_1 = mass(k, nColumn)
                mass(k, nColumn) = mass(k + 1, 0)
                mass(k + 1, 0) = temp_1
            End If
        End If
    Next i
    iter_ = iter_ - 1
   Wend
    
    'вывод массива
     For i = 0 To nLine
        For j = 0 To nColumn
            Worksheets("4.10").Cells(13 + i, 1 + j) = mass(i, j)
        Next j
    Next i
End Sub