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:
[TABLE="width: 500"]
<tbody>[TR]
[TD]Product code[/TD]
[TD]Description[/TD]
[/TR]
[TR]
[TD]110/1[/TD]
[TD]- manual operation
- high voltage
- yellow color
- email notification
[/TD]
[/TR]
[TR]
[TD]110/2[/TD]
[TD]- automatic operation
- low voltage
- red color
- SMS notification
[/TD]
[/TR]
</tbody>[/TABLE]

Sample table - after:
[TABLE="width: 500"]
<tbody>[TR]
[TD]Product code[/TD]
[TD]Description[/TD]
[/TR]
[TR]
[TD]110/1[/TD]
[TD]- manual operation
[/TD]
[/TR]
[TR]
[TD]110/1[/TD]
[TD]- high voltage
[/TD]
[/TR]
[TR]
[TD]110/1[/TD]
[TD]- yellow color
[/TD]
[/TR]
[TR]
[TD]110/1[/TD]
[TD]- email notification[/TD]
[/TR]
[TR]
[TD]110/2[/TD]
[TD]- automatic operation
[/TD]
[/TR]
[TR]
[TD]110/2[/TD]
[TD]- low voltage[/TD]
[/TR]
[TR]
[TD]110/2[/TD]
[TD]- red color[/TD]
[/TR]
[TR]
[TD]110/2[/TD]
[TD]- SMS notification[/TD]
[/TR]
</tbody>[/TABLE]

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!