要在下一个空白单元格中复制和粘贴的宏

Question

Sub test1()
Dim LR As Long
LR = WorksheetFunction.Max(20, Range("C" & Rows.Count).End(xlUp).Row + 1)
Range("C3").Resize(, 3).Cut Destination:=Range("C" & LR)
End Sub

上述源代码适用于将（剪切）粘贴复制到同一张纸中。 现在我需要剪切并粘贴到另一张纸上 即：Sheet1（剪切）到sheet2（过去）

由于

Answer 1

下面的代码会将数据从sheet1剪切到sheet2

Sub test1()
Dim LR As Long
LR = WorksheetFunction.Max(20, Range("C" & Rows.Count).End(xlUp).Row + 1)
Sheets("Sheet1").Range("C3").Resize(, 3).Cut 
Sheets("Sheet2").Range("C" & LR).PasteSpecial xlPasteValues
End Sub