Macro to split a single cell data into rows and copying other cells as it is in rows

Hi,

I want to split a cell into rows and copy the rest of the data as it is in the row. For Eg. we have data in rows as (cell A1=Apple, cell B1=Ball, cell C1=Cat, cell D1=Dog, Fish, Rat, cell E1=Elephant). Now I want to split cell D1 in 3 rows(D1,D2,D3) without the commas and copy cell A1 into A2 & A3, B1 into B2 & B3, C1 into C2 & C3 & E1 into E2 & E3 as it is.

This will not be constrained upto single row, there may be multiple rows containing more data in a single cell which needs to be splitted in rows.

First I want to search which cell in the row contains the string with commas and then split it in rows.

I am attaching a excel sheet for your reference.

Regards,
Pankaj