Сделать l oop запускается слишком много раз

Question

Итак, я пытаюсь создать макрос в VBA, который находит заголовок, например, номер продукта, а затем вставляет все номера продуктов и продукты (соседний столбец) в другую книгу (счет) в формате

product число - произведение

, пока не дойдет до двух пустых ячеек. Проблема в том, что l oop запускается слишком много раз, а затем вставляет все строки, за которыми следует «Ошибка» и красная ячейка, потому что обе ячейки пусты. Я пропустил много строк для краткости, но если это поможет, я буду рад опубликовать остальную часть. Я пробовал несколько вещей, но не могу это исправить. Любая помощь будет оценена. Заранее спасибо.

Set wsDest = Workbooks("Bill.xlsx").Worksheets("Bill")

    Lastrow = wsDest.Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Offset(RowOffset:=1).Row

         Do Until IsEmpty(Cells(i, j)) And IsEmpty(Cells(i, j + 1))

         Set ANextFreeCell = wsDest.Cells(Lastrow, "L")

            If IsEmpty(Cells(i + 1, j)) Or IsEmpty(Cells(i + 1, j + 2)) Then
            ANextFreeCell = "Error"
            ANextFreeCell.Interior.Color = RGB(255, 199, 206)

            Else
            ANextFreeCell = Cells(i + 1, j) & " - " & Cells(i + 1, j + 2)
            End If

            i = i + 1
            Lastrow = Lastrow + 1
            Loop