Need Help on VBA Code to Cut or Split Cell and Copy Row Based on Commas in Cell

[JPatty]

I'm trying to figure out some VAB code that loops through col B and C on ActiveSheet. For each cell that has a comma in B:C copy entire row containing that cell and insert below, then cut the numbers to the right of the comma and copy to the cell in the row below.
An example is attached as I don't think I can accurately describe what I am trying to accomplish.
Any help is greatly appreciated.

PlasticadeTemplate 4.xlsm
	A	B	C	D	E	F	G
1
2				Red
3				Blue
4				Black
5				Yellow
6				Pink
7
8
9	Date	Time	Numbers Start	Numbers End	Color
10	1/11/2023	12:00	985, 989	60018	Red
11	1/11/2023	12:00	214-216, 227	60018	Red
12	1/11/2023	12:00	086-089, 095	60018	Black
13	1/11/2023	12:00	115-117, 120, 123, 126	60018	Yellow
14	1/11/2023	12:00	137	60018	Yellow
15	1/11/2023	12:00	245,247	60018	Yellow
16	1/11/2023	12:00	60018	985, 989	Yellow
17	1/11/2023	12:00	60018	214-216, 227	Pink
18	1/11/2023	12:00	60018	086-089, 095	Pink
19	1/11/2023	12:00	60018	115-117, 120, 123, 126	Pink
20	1/11/2023	12:00	60018	137	Black
21	1/11/2023	12:00	60018	245,247	Black
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sheet1

PlasticadeTemplate 4.xlsm
	A	B	C	D	E	F	G
1
2				Red
3				Blue
4				Black
5				Yellow
6				Pink
7
8
9	Date	Time	Numbers Start	Numbers End	Color
10	1/11/2023	12:00	985	60018	Red
11	1/11/2023	12:00	989	60018	Red
12	1/11/2023	12:00	214-216	60018	Red
13	1/11/2023	12:00	227	60018	Red
14	1/11/2023	12:00	086-089	60018	Black
15	1/11/2023	12:00	095	60018	Black
16	1/11/2023	12:00	115-117	60018	Yellow
17	1/11/2023	12:00	120	60018	Yellow
18	1/11/2023	12:00	123	60018	Yellow
19	1/11/2023	12:00	126	60018	Yellow
20	1/11/2023	12:00	137	60018	Yellow
21	1/11/2023	12:00	245	60018	Yellow
22	1/11/2023	12:00	247	60018	Yellow
23	1/11/2023	12:00	60018	985	Yellow
24	1/11/2023	12:00	60018	989	Yellow
25	1/11/2023	12:00	60018	214-216	Pink
26	1/11/2023	12:00	60018	227	Pink
27	1/11/2023	12:00	60018	086-089	Pink
28	1/11/2023	12:00	60018	095	Pink
29	1/11/2023	12:00	60018	115-117	Pink
30	1/11/2023	12:00	60018	120	Pink
31	1/11/2023	12:00	60018	123	Pink
32	1/11/2023	12:00	60018	126	Pink
33	1/11/2023	12:00	60018	137	Black
34	1/11/2023	12:00	60018	245	Black
35	1/11/2023	12:00	60018	247	Black
36
37
38
Sheet2

 

[mumps]

Try:

Sub CopyRows()
    Application.ScreenUpdating = False
    Dim lRow As Long, v As Variant, i As Long, ii As Long, val As Variant, x As Long
    lRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    v = Range("A10", Range("A" & Rows.Count).End(xlUp)).Resize(, 5).Value
    For i = UBound(v) To LBound(v) Step -1
        If InStr(v(i, 3), ",") > 1 Then
            val = Split(v(i, 3), ", ")
            Cells(i + 9, 3) = val(LBound(val))
            Cells(i + 10, 1).Resize(UBound(val)).EntireRow.Insert
            For ii = 1 To UBound(val)
                Cells(i + 9 + ii, 1).Resize(, 5).Value = Array(v(i, 1), v(i, 2), val(ii), v(i, 4), v(i, 5))
            Next ii
        Else
            If InStr(v(i, 4), ",") > 1 Then
                val = Split(v(i, 4), ", ")
                Cells(i + 9, 4) = val(LBound(val))
                Cells(i + 10, 1).Resize(UBound(val)).EntireRow.Insert
                For ii = 1 To UBound(val)
                    Cells(i + 9 + ii, 1).Resize(, 5).Value = Array(v(i, 1), v(i, 2), v(i, 3), val(ii), v(i, 5))
                Next ii
            End If
        End If
    Next i
    Application.ScreenUpdating = True
End Sub