Разбиение строк ячейки с помощью VBA на несколько ячеек.

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

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

Решение задачи: «Разбиение строк ячейки с помощью VBA на несколько ячеек.»

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

                            Sub macro1()
Dim row As Integer, a As Integer
row = 7
    Do While Cells(row, 3).Value <> 0
       arr = Split(Cells(row, 3), Chr(10))
       Max = UBound(arr) + 1
       a = 0
       Do While a <> Max
         Text = arr(a)
         Cells(row, 10 + a).Value = Text
         a = a + 1
       Loop
         row = row + 1
    Loop
End Sub

                        