над составить матрицу случайных чисел.. ну я её написала...

Sub случайныечисла()
Dim D1 As Double, D2 As Double
Dim i As Integer
Dim j As Integer
D1 = InputBox("D1:")
D2 = InputBox("D2:")

Randomize

For i = 1 To 10
For j = 1 To 10
лист1.Cells(i, j).Value = CInt((D2 - D1 + 1) * Rnd + D1)
Next j
Next i


End Sub

надо отфильтровать эту матрицу по закону : числа не принадлежат диапазону (max/7;max/3)и притом в новой матрице эти отфильтрованные элементы должны быть расположены по возрастанию относительно главной диагонали