宏複製並粘貼到下一個空白單元格中

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 

上述源代碼可將複製（剪切）粘貼到同一工作表中。 現在我需要剪切並粘貼到另一個片 即：工作表Sheet（剪切）到Sheet（過去）

由於

Answer 1

下面代碼將從Sheet 1中削減數據到Sheet

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