Запись таблицы в массив, и вывод нужных вариантов - VBA

Формулировка задачи:

Доброго времени! Есть двухмерный массив:

Dim MyArray() As String
Dim n As Integer
n = Range("A1").CurrentRegion.Rows.Count //считываю номер последней заполненной строки
ReDim MyArray(n, 3) //n строк и 4 столбца

Записываю в массив мою таблицу

For i = 0 To n
    For j = 0 To 3
        MyArray(i, j) = Cells(i+2, j+1).Value //i+2 потому что есть заголовки
    Next j
Next i

Теперь я с ComboBox1 забираю условие фильтра

Dim a As String
a=UserForm1.ComboBox1.Text

Теперь хочу в моём массиве найти записи с значением a

For i = 0 To n
       If MyArray(i, 2) = a //ищу по 3-му столбцу
then //а вот тут я не знаю как вывести все записи с a в определенное место на листе
Next i

Помогите пожалуйста...!

Решение задачи: «Запись таблицы в массив, и вывод нужных вариантов»

textual
                            Листинг программы 
                        

                            Dim a(), i&, x&
Columns("A:B").Select
a = Selection.Value[/BASIC]
Перебрать все значения в массиве:
[BASIC]s=UserForm1.ComboBox1.Text
For i = 3 To UBound(a) ' Шапка из 2-х строк
 if a(i,1) = s then ' сравниваем по столбцу "А" если "B" то a(i,2) = s
  x= x+1 
 cells(x,4) = s 'Выводим в 4-й столбец 
cells(x,5) = a(i,1)
cells(x,6) = a(i,2)
 
 end if
Next
                        