Hi Sir,
Please find the below code, Please assist.
Sub Demo()
Dim arO, resAr(), i As Long, j As Long, k As Long
Dim rcol As New Collection
arO = Range("A2:G" & Cells(Rows.Count, 1).End(xlUp).Row).Value2
For i = 1 To UBound(arO)
If InStr(arO(i, 1), ",") Then
x = Split(arO(i, 1), ",")...