Excel Разделение массива из двух ячеек столбца на несколько строк

Question

Итак, я пытаюсь автоматизировать некоторые из моих работ. Вот пример того, с чем я работаю:

У меня есть макрос, в котором массив отступов отделяется символом "," и разбивает его на новые строки с остальными из строк информация не изменялась и копировалась в нее. Это работает, поэтому мне не нужно копировать и вставлять всю информацию о строках каждый раз, когда я хочу добавить новый номер отступа, НО я также хочу, чтобы мой код считывал соседний номер QTY (например, 22985, & 5,) и разбить его на новую строку со всей информацией о других столбцах.

Итак, как мне изменить мой макрос, чтобы он читал отступ и количество в одном наборе? Ниже я бы хотел, чтобы это выглядело идеально.

Dim r As Range, i As Long, ar
    Set r = Worksheets("Sheet3").Range("P99999").End(xlUp)
    Do While r.Row > 1
        ar = Split(r.Value, ",")
        If UBound(ar) >= 0 Then r.Value = ar(0)
        For i = UBound(ar) To 1 Step -1
            r.EntireRow.Copy
            r.Offset(1).EntireRow.Insert
            r.Offset(1).Value = ar(i)
        Next
        Set r = r.Offset(-1)

        Call macro_refresh1
    Loop
End Sub
Sub macro_refresh1()
Application.OnTime Now + TimeValue("00:02:00"), "SHT3splitcolP"
End Sub