VBA Нужно составить матрицу B из элементов матрицы A

[Niki4ru]

Матрицу А(15, 4) заполнить целыми случайными числами в диапазоне от 1 до 51. Составить матрицу В(?, 4) из таких строк массива А, чтобы для каждого элемента A(I, J) данной строки I выполнялось условие 10<А(1,J)<40. Матрицу В заполнить плотно. Если таких строк не окажется, необходимо вывести соответствующее сообщение. Вывести А и В.

Пока только есть программа, рандомно заполняющая матрицу A.

Dim i&, j&, a&()
Randomize
ReDim a(1 To 15, 1 To 4)
For i = 1 To 15
For j = 1 To 4
a(i, j) = Int(Rnd * 51 + 1)
Next j, i
[a1].Resize(UBound(a, 1), UBound(a, 2)) = a