用VBA向下偏移目标行

我有一个VBA代码将一些数据复制到另一个工作表。

Sheets("Current").Range("A3:D").Copy Destination:=Sheets("Archive").Cells(1).End(xlDown) 

粘贴时，代码在所有现有条目之后将数据附加到第一个空行。 我想进一步将粘贴目的地抵消一行，最好的方法是什么？

Answer 1

 Sheets("Current").Range("A3:D").Copy _ Destination:=Sheets("Archive").Cells(1).End(xlDown).Offset(1, 0) 

更强大：

 Sheets("Current").Range("A3:D").Copy _ Destination:=Sheets("Archive").Cells(Rows.Count, 1).End(xlUp).Offset(2, 0)