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

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

Answer 1

try

Sub CopyDataToSheet3()
Dim lastRow As Long

'Get the last row with data in Sheet3
lastRow = Sheets("Sheet3").Cells(Rows.Count, 1).End(xlUp).Row

'Check if the last row with data is after row 1
If lastRow > 1 Then
'Clear contents of rows 2 to lastRow
Sheets("Sheet3").Range("A2:A" & lastRow).ClearContents
End If
'Copy data from Sheet2 to Sheet3
lastRow = Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row
Sheets("Sheet2").Range("A2:A" & lastRow).Copy Destination:=Sheets("Sheet3").Range("A2")
End Sub