将一系列单元格复制到新工作表

我试图复制一个不断更新的数据范围到另一个表中的下一个空行来永久存储。 我的代码将工作，但它只会复制第一行，我需要它复制9行的范围。 提前致谢！

Sub Export() Dim Timestamp As Date Dim lastrow As Integer Dim raw_data As Variant 'Records all data to DBO Timestamp = Now raw_data = Sheets("Data").Range("A2:M10").Value lastrow = Sheets("DBO").Range("B60000").End(xlUp).Row Sheets("DBO").Range("A" & lastrow + 1) = Timestamp Sheets("DBO").Range("B" & lastrow + 1, "N" & lastrow + 1).Value = raw_data Workbooks("Board.xlsm").Save End Sub 

Answer 1

 raw_data = Sheets("Data").Range("A2:M10").Value With Sheets("DBO").Range("B60000").End(xlUp).Offset(1,0).EntireRow .Cells(1).Value = Timestamp 'If you set the destination range using the upper bounds of ' raw_data then you don't have to edit this line if you ' change your input range from A2:M10 to something a different size .Cells(2).Resize(UBound(raw_data,1),UBound(raw_data,2)) = raw_data End With Workbooks("Board.xlsm").Save