Разорвать цикл и ввести результаты в другую таблицу в Excel VBA

Question

Принимая результаты из API и сортируя их по разным полям, проблема в том, что у меня есть 20 столбцов, возвращаемых из API, и я хочу 2 разные таблицы с 10 результатами в каждой.

j = 3
For Each result In JSON.Item("results")

Cells(20, j) = result.Item("param_1")
Cells(21, j) = result.Item("param_2")
Cells(22, j) = result.Item("param_3")
Cells(23, j) = result.Item("param_4")
i = 0

For Each t In result.Item("param_5")
    If i > 0 Then
        Cells(24, j) = Cells(24, j) & ", " & t
    Else
        Cells(24, j) = t
        i = i + 1
    End If
Next
Cells(25, j) = result.Item("param_6")
Cells(26, j) = result.Item("param_7")
j = j + 1
Next

Это хорошо работает для каждых 20Столбцы, проблема в том, что когда я добавляю эту часть кода в первую часть, очевидно, что в первой таблице она не работает, я получаю 10 результатов, но в следующей таблице у меня только одна запись.

If j >= 13 Then
j = 3

Cells(33, j) = result.Item("param_1")
Cells(34, j) = result.Item("param_2")
Cells(35, j) = result.Item("param_3")
Cells(36, j) = result.Item("param_4")
i = 0
For Each t In result.Item("param_5")
    If i > 0 Then
        Cells(37, j) = Cells(37, j) & ", " & t
    Else
        Cells(37, j) = t
        i = i + 1
    End If
Next
Cells(38, j) = result.Item("param_6")
Cells(39, j) = result.Item("param_7")