С применением цикла извлечь часть строки в отдельную ячейку - VBA

Формулировка задачи:

добрый день, имеется след документ, нужно из строки группировки вычленить код и страну и поместить в столбцы справа напротив каждого товара, после удалить строки группировки(с этим вроде как разобрался). Понимаю, что нужно делать цикл, но не могу разобраться какой... Диапазон всегда будет разный. Код для 1 ячейки вывел так:

Sub Mid()
Dim a As Range, b As String
Set a = Worksheets("ДанныеДляГТД").Range("A2")
    b = Mid(a, 17, 10)
    a.Offset(1, 11).Value = b
End Sub

Сильно не пинайте, за 4 года подзабыл VBA... Буду благодарен любой помощи

Решение задачи: «С применением цикла извлечь часть строки в отдельную ячейку»

textual
                            Листинг программы 
                        

                            Sub www()' в код листа
r = Cells(Rows.Count, 2).End(xlUp).Row
With Range(Cells(2, 4), Cells(r, 4))
For Each x In .SpecialCells(4).Cells
x.Offset(1, 9).Value = Split(Split(x.Offset(, -3).Value, "=")(1), ",")(0)
x.Offset(1, 10).Value = Trim(Split(x.Offset(, -3).Value, "=")(2))
Next x
End With
End Sub
                        