说明此段代码适用在同一个工作簿中。不同的工作簿中不适用。
修改工作表名称及单元格地址满足自己要求
Sub 保存()
lastrow = Worksheets("保存数据的工作表名称").UsedRange.SpecialCells(xlCellTypeLastCell).Row
Sheets("保存数据的工作表名称").Select
Sheets("保存数据的工作表名称").Cells(lastrow+1,列地址) = Sheets("录入数据的工作表名称").Cells(单元格地址)
.
.
.
End Sub