Excel 将中间区域向下复制并粘贴到另一行中的最后一行

我尝试只复制a-K列数据的工作表中的第1页B-I列，但仅复制到最后一行，并将其粘贴到第2页单元格A4中。然后我想把这些信息粘贴到另一张纸上。我设置了以下代码行，但这仅在我在第1页中并选择了单元格B1时有效（我确信这是因为我从录制的宏中抓取了选择行）。我希望能够在不激活工作表的情况下运行代码，以加快代码速度。如何做到这一点

代码如下：

Worksheets("Sheet 1").Range("B1:I1", Selection.End(xlDown)).copy Worksheets("Sheet 2").Range("A4")

我已经根据表3中的信息对最后一行进行了调暗，以便在表1中使用。最后一行与图纸1的最后一行相同

代码如下：

Dim LastRow As Integer
LastRow = ThisWorkbook.Sheets("Sheet 3").Cells(Rows.Count, 1).End(xlUp).Row

---

旁注：使用

Long

而不是

Integer

。Excel的行数超过了

Integer

所能处理的行数。

工作表（“工作表1”）.Range（“B1:I”&LastRow”）.Copy

。感谢@BigBen的长vs整数提示，但是当我尝试在另一个工作表中运行它时，仍然会出现运行时“1004”错误。请参阅我的第二条评论。@BigBen这很有效！非常感谢。