Split String Separated Comma

In filed I have couple of value separated by comma like below:

A1 header1
B1 header2
C1 header3

Audi
592035, 579733, 653749, 579735
20 000

If my macro found that string (always will be separate by ",") should split the string and add rows (= to number of string). The output should be as below:

A1 header1
B1 header2
C1 header3

Audi
592035
20 000

[Code] .....

I have:

Code:
Set sourceWb = ActiveWorkbook
Set ws = sourceWb.Worksheets(1)

Dim LastRow As Long
Dim MY_Split As Variant

LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

[Code] ...........