应用错误收集

每天，我都会收到一份清单，其中列出了数量不同的物品columns A-C。

我正在使用一个宏，该宏会自动从其他电子表格中提取信息，并在D-H列中填充信息（公式工作正常）。

我遇到的问题是如何确保它只复制包含信息的行的公式并在最后一项停止。

我尝试了如下操作，但它会填充到工作表中的最后一个单元格，而不是停在表的末尾。

Range("D2:H2").Select
    Selection.Copy
    Range("D2:H2").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.Paste

直到现在，我必须通过手动将其向下拖动以填充剩余的行来启动它。有没有一种方法可以自动执行此操作？