I need to split the contents of one cell into multiple rows and copy the content of the adjacent to the cell that is being split next to each resulting row. Can someone provide me with VBA code to perform this task.

Current
1011 B06,B09,B13,B15,B32,B44,B73,B82,B83
1015 B06,B09,B20,B73,B82,B83
1020 B06,B08,B09,B15,B16,B28,B32,B35,B42,B73,B76,B82,B83,B87

Revised
1011 B06
1011 B09
1011 B13
1011 B15
1011 B32
1011 B44
1011 B73
1011 B82
1011 B83
1015 B06
1015 B09
1015 B20
1015 B73
1015 B82
1015 B83
1020 B06
1020 B08
1020 B09
1020 B15
1020 B16
1020 B28
1020 B32
1020 B35
1020 B42
1020 B73
1020 B76
1020 B82
1020 B83
1020 B87