Excel 要复制并粘贴到下一个空白单元格中的宏

上面的源代码可以复制（剪切）粘贴到同一张纸上。 现在我需要剪切并粘贴到另一张纸上 ie:第1张（切割）至第2张（过去）

---

谢谢下面的代码将数据从表1剪切到表2

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

---

目的地：=板材（“板材2”）。范围（“C”和LR）

？其工作状态。感谢sathish sheets（“sheet2”）应该添加到max（20，…..）旁边。是否有任何可能粘贴为空间值。我在输入区域使用一些公式。我只想粘贴为值。

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