如何复制单元格的值并粘贴在以前的单元格下

我想要一个macros从一个特定的单元格复制数据，并将其复制到另一个工作表上的单元格，但我希望它是一个连续列表。 我的意思是，将第一个单元格复制到A2中，然后将下一个单元格复制到A3中，依此类推。 这是我到目前为止的代码，它可以复制到单元格A2中，但它会删除以前的数据。

Option Explicit Sub Copy_Data() Worksheets("PremakeResults").Range("B1").Copy Worksheets("SavedResults").Range("A2") End Sub 

我有一种感觉，这是一个相当简单的macros观，但我一直没有在互联网上寻找正确的东西。 任何帮助，将不胜感激！

编辑

我只是试过这个代码

 Sub Copy_Data() Worksheets("PremakeResults").Range("B1").Copy Worksheets("SavedResults").Range("A" & Worksheets("SavedResults").Cells(Worksheets("SavedResults").‌​Rows.Count, "A").End(Xlup).Row) End Sub 

虽然这将复制到指定的页面，它仍然会擦除第一个条目。

Answer 1

这个怎么样。 这发现SavedResults表A列中的最后一行然后添加一个select下一行，然后它将此处的值设置为与预制结果表中的单元格B1相同

 Sub Copy_Data() Dim LastRow as Variant LastRow = Worksheets("SavedResults").Cells(Rows.Count, "A").End(xlUp).Row + 1 Worksheets("SavedResults").Range("A" & LastRow).Value = Worksheets("PremakeResults").Range("B1").Value End Sub