在循环中创建sourceRanges

Question

我不知道有任何技术VBA培训，但通过阅读论坛，我可以自己拼凑一些东西。这个我无法弄清楚。

是否可以创建一个从一个工作簿复制范围并将其粘贴到另一个工作簿的循环？我收到的成本单包含可变数量的＆＃34;文章＆＃34;。每篇文章都包含我需要的3列数据，但它们是一个接一个地水平列出的。要获得我需要的第一篇文章，我将下面的代码。这有助于我选择第一个复制和粘贴数据。

Cells.Find ("Tot. BOM Cost")
ActiveCell.Offset(4, 2).Select
Range(Selection.End(xlDown), Selection.Offset(0, -2)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection = sourceRange

从那里，我创建了一个循环来突出显示接下来的3列，如果上面的单元格2和3上面的单元格不是空的。我可以在下面插入任何代码，以便它还可以将循环中的每个突出显示（每篇文章）复制并粘贴到不同的工作簿中吗？

Do
ActiveCell.Offset(0, 5).Select
Range(Selection.End(xlDown), Selection.Offset(0, -2)).Select
????
Loop Until IsEmpty(ActiveCell.Offset(-2, 3))