На языке vba для excel заполнить диапазон ячеек в4: н9 случайными положительными и отрицательными числами. упорядочить их по возрастанию по каждому столбцу.

Sub aaa()
    Randomize Timer
    For r = 4 To 9
        For c = 2 To 8
            Cells(r, c) = 10 * Rnd - 5
        Next c
    Next r
    For c = 2 To 8
        Set d = Range(Cells(4, c), Cells(9, c))
        d.Sort d, xlAscending
    Next c
End Sub