Hopefully this code works for you...
Sub reorganizeStuff()
Dim i As Long, j As Long, lastrow As Long, arr1, arr2
lastrow = Range("A" & Rows.Count).End(xlUp).Row
For i = lastrow To 1 Step -1
arr1 = Split(Range("A" & i).Value, ",")
arr2 = Split(Range("B" & i).Value, ",")
Range(Cells(i + 1, 1), Cells(i + UBound(arr1), 2)).Insert Shift:=xlShiftDown
Range(Cells(i, 1), Cells(i + UBound(arr1), 1)) = Application.Transpose(arr1)
Range(Cells(i, 2), Cells(i + UBound(arr1), 2)) = Application.Transpose(arr2)
Next i
End Sub
Bookmarks