написать комментарии к каждой строке. 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

Читай комментарии, там всё в трёх частях подробно описано(всё после " // " - комментарии), если что-то непонятно - читай про макросы для exel, которые пишут с твоего языка программирование VBA. Удачи!.
Не забудь сказать " ", ведь я старался!