Заполнение массива - VBA

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

Товарищи! помогите плиз, не могу понять в чем ошибка, только осваиваю массивы, не могу понять.

SubМ массив()
Dim i&, j&, k&, B, A, m
 
    A = ActiveSheet.UsedRange.Value
    ReDim B(1 To UBound(A))
    f = UBound(A)
   
    For j = 1 To UBound(A)
     k = k + 1
    
        For i = 1 To 8
 
       If Cells(5, 1) = Cells(1, i + 2) Then
       m = i + 2
       End If
       'Exit For
 Next i
       B(k) = A(j, m)
     Next j
    Sheets(1).[A1].Resize(UBound(A), 1).Value = B
End Sub

Решение задачи: «Заполнение массива»

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

                            Sub Процедура2()
Dim i&, j&, k&, B, A, m
 
    A = ActiveSheet.UsedRange.Value
    ReDim B(1 To UBound(A))
   ' f = UBound(A)
   
For j = 1 To UBound(A)
  k = k + 1
      For i = 1 To 8
         If Cells(5, 1) = Cells(1, i + 2) Then m = i + 2: Exit For
      Next i
   B(k) = A(j, m)
Next j
    Sheets(1).[A1].Resize(UBound(A), 1).Value = WorksheetFunction.Transpose(B)
End Sub
                        