Need A Macro that takes comma delimited values in select columns and seperates them to row

Hello Everyone,

New to the forum and looking for some help,

I have a large ecomm spreadsheet that comes from vendors with multiple item attributes in a single cell in a number of columns. I need the macro to go through select columns and seperate these comma delimited attributes to a newly inserted row below the original while keeping the first attribute in the original cell.

Attached is my current code in VB(be gentle, I was never taught VB), it works to an extent, however, it does not move past the first row. And if, say column B has 3 attributes in row 1, and 5 attributes in column D of row 1, the last 2 of column D are being chopped off. I need it to not cut these off and be OK with later columns have more inserted rows.

TroyMacro.txt

Any help on this would be great,

Thanks to everyone in advance.

I am not able to attach a legitimate smaple workbook, but I can attach a screenshot of what im seeingvs what I need. I hope that this will help.MACROexample.png

Thanks,