Split single cell to multiple rows

Hi,


I'm trying to write a VBA and place it in an excel sheet so that VBA gets triggered on opening excel.
Curently what I have is:

Type   	Name	        Number
Cream	Test1	        40, do
Cream	Test21	20,last,80, no
Cream	Test30	no man, 20, value
Cream	Test8	        30,no way,yes

What I am looking for is:

Type   	Name	  Find Number
Cream	Test1	   40
                           do
Cream	Test2    20
                           last
                           80
                           no
Cream	Test30  no man
                           20
                           value
Cream	Test8	  30
                           no way

In result, the values of the third column are in different rows