从一个电子表格粘贴到另一个电子表格后删除数据

Question

我正在尝试从一个电子表格中复制数据并将其粘贴到另一个电子表格中。我最近粘贴的任何数据都想删除。问题是我可能不会总是在我的粘贴下面有一个空单元格，因为我正在粘贴旧数据所以有时我会覆盖旧数据但有时我不会。

我试过计算我正在复制的行，然后在另一个电子表格中使用该引用单元格/值删除，但我并不总是得到正确的行开始删除。

Dim lr As Long

Sheets("Sheet2").Select
lr = ThisWorkbook.Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row
'MsgBox (lr)

Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy

Sheets("Sheet3").Select
Range("A2").Select
'Selection.End(xlDown).Select
'ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste

Range("A" & (lr + 1)).Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.ClearContents