Одномерный массив

[not_table]

Ребят вот задача
Дан массив натуральных чисел а1, а2,..., an. Создать массив из четных чисел этой последовательности
Вот код
Sub a1()
Dim A(1 To 4) As Integer, B() As Integer
A(1) = 1
A(2) = 2
A(3) = 3
A(4) = 4
J = 0
For I = 1 To 4
If A(I) Mod 2 = 0 Then
J = J + 1
ReDim Preserve B(1 To J) As Integer
B(J) = A(I)
End If
Next I
End Sub

Но я не понимаю как это вывести в ячейку на лесте, вроде команда Cells() но что в ней писать то, чтоб правильно вывело

[Hugo121]

Ну например

ActiveSheet.[a1].Resize(UBound(B)) = Application.Transpose(B)

[not_table]

Спасибо друг заработало!!!
Очень благодарен