Отформатировать 2 столбика в один - VBA/Excel

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

Добрый день. Всех с праздником! Помогите с кодом пожалуйста, У меня есть 2 столбика с числами:

Их нужно соединить в отдельный столбик в таком порядке:

Начала писать код, получается что чтение идёт не совсем по порядку.

Sub Test()
Dim i&
 
i = 1
Do While Cells(i, 1).Value <> Empty
    Cells(i, 4) = Cells(i, 1).Value
    Cells(i + 1, 4) = Cells(i, 1).Value
    Cells(i + 2, 4) = Cells(i, 2).Value
    i = i + 1
Loop

Пример прилагаю. Спасибо всем за ответы! С уважением.

Решение задачи: «Отформатировать 2 столбика в один»

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

                            Private Sub Test2()
    Dim a1 As Variant, a2 As Variant, i&, c&
    
    a1 = Range("A1", Cells(Rows.Count, "B").End(xlUp)).Value
    ReDim a2((UBound(a1) * 3) - 1, 0)
 
    For i = 1 To UBound(a1)
        a2(c, 0) = a1(i, 1): c = c + 1
        a2(c, 0) = a1(i, 1): c = c + 1
        a2(c, 0) = a1(i, 2): c = c + 1
    Next
    
    Range("C1").Resize(c) = a2
End Sub
                        