Split a string of data among separate cells

Hi All,

I have data that I need to split into individual points. My macro charts the data, as a scatter plot, with: Column A as the title of the chart, Column B as the X axis, and Columns C and D as the Y axis. What I need is for when the Product ID has more than 1 number listed to split the numbers out into their own rows and keep the columns B, C, and D the same for each row created form the original. So for row 167, I would want 3 rows (001,002,003) each with packaging, 200, and 100, in B, C, and D respectively. I am not sure where to begin. I tried to build a macro myself but, I immediately got tripped up when I tried to record a "Find" Formula to run on the data. Any help would be greatly appreciated.

Thanks in advance.
Sample Data.jpg

attach a sample file, no jpg, with input data and desired result

@AB33 This works perfectly, exactly what I was looking for. I have 2 questions: why does it delete my title line, can I fix that? Also, can it be made to look for "-" as well as ","? Thank you very much for your help!

@Jindon This is close to what I was looking for, except I wanted the "new" lines to just be added to the list, not a whole new list. Thank you for your help!