做循环运行太多次

Question

因此，我试图在VBA中创建一个宏，以查找标头，例如产品编号，然后将所有产品编号和产品（相邻列）以

格式粘贴到另一个工作簿（清单）中

产品编号-产品

直到到达两个空白单元格。问题是循环运行了太多次，然后粘贴所有行，然后粘贴“ Error”和红色单元格，因为两个单元格均为空白。为了简洁起见，我省略了很多行，但是如果有帮助的话，我很乐意发布其余内容。香港专业教育学院尝试了很多事情，但无法解决。任何帮助，将不胜感激。预先感谢。

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