Devide cell values based on new line

[Pontos]

I have a table with 2 columns.
I would like to divide all the values in column B into new row based on the char(10) end of line.

Sample table - before:

Product code	Description
110/1	- manual operation - high voltage - yellow color - email notification
110/2	- automatic operation - low voltage - red color - SMS notification

<tbody>
</tbody>

Sample table - after:

Product code	Description
110/1	- manual operation
110/1	- high voltage
110/1	- yellow color
110/1	- email notification
110/2	- automatic operation
110/2	- low voltage
110/2	- red color
110/2	- SMS notification

<tbody>
</tbody>

Any ideas?

Thanks!

 

[footoo]

Try :

Sub FT()
Dim rng As Range, cel As Range, r As Variant, s&
Application.ScreenUpdating = False
[A:B].Insert
Set rng = Range([D2], Cells(Rows.Count, "D").End(xlUp))
For Each cel In rng
    r = Split(cel, Chr(10))
    s = UBound(r) - LBound(r) + 1
    With Cells(Rows.Count, "B").End(xlUp)
        .Item(2).Resize(s).Value = Application.Transpose(r)
        .Item(2, 0).Resize(s).Value = cel(1, 0)
    End With
Next
[C:D].Delete
Application.ScreenUpdating = False
End Sub

 

[Pontos]

Thank you!