VBA code - Text to rows with comma seperator

Hi, Pls help to convert text to rows with comma seperator in a table keeping all other entries in control just like in the attached file.

tks
shreeja.

Output is in Sheet2.

Hi TonyS, thanks and it really works well..
How to edit the code if i need to extend the columns but the comma separated column always remain at the last?

Hi TonyS, i got it myself... thanks a lot... it saved me a lot of time.