Перенести абзацы внутри ячейки в соседний столбец с циклом - VBA

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

Добрый день! Имеется excel файл (во вложении). Напишите пожалуйста макрос который

проверит ячейки столбца "B"

, и

каждую строку внутри ячейки столбца "B"

, перенесёт в свободную ячейку столбцов B, C, D, E и т. д. Пример: Исходник: [B1]Стол руководителя Материал: массив, шпон, кожа Цвет: черешня, темно-зеленая Вес: 137,6 Объем: 1,018 Размеры: 180х88х79 Примечание: Боковые выдвижные ящики столешницы закрываются на замки. 3-х секционная кожаная вставка. Необходимый результат: [B1]Стол руководителя [C1]Материал: массив, шпон, кожа [D1]Цвет: черешня, темно-зеленая [E1] Вес: 137,6 [F1] Объем: 1,018 [G1] Размеры: 180х88х79 [H1] Примечание: Боковые выдвижные ящики столешницы закрываются на замки. [I1] 3-х секционная кожаная вставка.

Решение задачи: «Перенести абзацы внутри ячейки в соседний столбец с циклом»

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

                            Sub По_столбцам()
    [B:B].TextToColumns DataType:=xlDelimited, Other:=True, OtherChar:=vbLf
End Sub
                        