将行复制到另一个下方，检查最后填充的列

我有一个表单。 我希望列表的内容被转移到我的表单评估。 但是我的评估表已经包含了以前的评估。 我想要新的行下面的旧的。 有人能帮我怎么做到这一点？

我有我下面的代码，这是一个复制粘贴function。

Sub lastweekctt() Worksheets("List").Range("A4:W1000").Copy _ Destination:=Worksheets("Evaluation").Range("A5") End Sub 

我在两张表中都有第4行的标题。

Answer 1

你需要得到最后一个空行：

 Sub lastweekctt() Dim LastRow As Long 'get last row LastRow = Worksheets("Evaluation").Cells(Rows.Count,1).End(xlUp).Row Worksheets("List").Range("A4:W1000").Copy _ Destination:=Worksheets("Evaluation").Range("A" & LastRow + 1) End Sub 

希望这个帮助。

Answer 2

你需要先find最后一行

 lLastRow = Worksheets("Evaluation").Cells(Worksheets("Evaluation").Rows.Count, 1).End(xlUp).Row 

然后你的目的地范围看起来像这样

 .Range("A" & lLastRow + 1)