Разбить содержимое ячейки на строки - VBA

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

Всем привет! Есть такая задача: необходимо содержимое ячейки транспонировать в столбец. просто транспонировать не получается, тк надо в один столбец, а при обчычном траспонировании происходит в столбцы Например, есть

Спойлер

надо чтобы записалось в

Спойлер

и так далее то есть в один столбец. желательно это в макросе сделать

Решение задачи: «Разбить содержимое ячейки на строки»

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

                            Private Sub Test()
    iArr = Split(Replace([A1], vbLf, "-"), "-")
    [B1].Resize(UBound(iArr) + 1) = Application.Transpose(iArr)
End Sub
                        