Передать значения из двумерного в одномерный массив

For i=1 To 14
If a(i,1)="зяблик" Then a(i,2) 'и из этого столбца передать значения или номера строк в одномерный массив
Next i

Public Sub d()
Dim a(13, 1), b()
a(1, 0) = "çÿáëèê"
a(1, 1) = "ïòèöà"
a(3, 0) = "çÿáëèê"
a(3, 1) = "ïòèöà"
 
For i = 0 To UBound(a) - 1
    If a(i, 0) = "çÿáëèê" Then
        ReDim Preserve b(j)
        b(j) = a(i, 1)
        j = j + 1
    End If
Next i
End Sub

For i = 1 To 14
    If A(i, 1) = "зяблик" Then
        ReDim Preserve b(j)
        b(j) = A(i, 2)
        j = j + 1
    End If
Next i

Dim b() As String, L As Long, n As Long, i As Long
n = UBound(a, 1)
L = 0
For i = LBound(a, 1) To n
    If a(i, 1) = "зяблик" Then
        ReDim Preserve b(0 To L)
        b(L) = a(i, 2)
        L = L + 1
    End If
Next
MsgBox Join(b, vbCrLf)

Public Sub d()
Dim a(13, 1), b()
a(1, 0) = "зяблик"
a(1, 1) = "птица"
a(3, 0) = "зяблик"
a(3, 1) = "птица"
 
For i = 0 To UBound(a) - 1
    If a(i, 0) = "зяблик" Then
        ReDim Preserve b(j)
        b(j) = a(i, 1)
        j = j + 1
    End If
Next i
End Sub

Dim MyXL As Object 
Dim xlSheet As Object 
 Set MyXL = Nothing
 Set MyXL = GetObject("F:\kalina11183.xls") 
 
MyXL.Application.Visible = False
 MyXL.Parent.Windows(1).Visible = True
 Set xlSheet = MyXL.WorkSheets(1) 
 For i = 1 To 14
      For j = 1 To 4
 A(i, j) = xlSheet.Cells(i, j) 
      Next j
    Next i
'Call Foo(A)
 
  MyXL.Save
MyXL.Application.Quit
k = 0
For i = 1 To 14
If A(i, 1) = "трансмиссия" Then k = k + 1
Next i
Print k
Print unit
ReDim b(1 To k)
 
For i = 1 To 14 'ваш ответ
    If A(i, 1) = "трансмиссия" Then
        ReDim Preserve b(j)
        b(j) = A(i, 2)
        j = j + 1
    End If
Next i
 
For i = 1 To k 'здесь вывожу массив, и он выводит первые 4 строки пусти, остальные шесть выводит,но не те
Print b(i)
Next i

Dim b()