Excel 将列追加到数据底部时出现问题

我的目标是剪切G列到I列（不带标题），并将数据从D列到F列下的下一行开始粘贴。基本上，我希望将相邻的列附加到下方。然后我需要复制A列到C列，并将复制的数据粘贴到它的正下方

这段代码实际上适用于我的4个文件，但现在它给了我一个错误，说我应该粘贴到相同大小的矩形或单个单元格。我已经尝试了太多在主板上找到的代码，但是没有任何东西可以修复这个错误。没有合并的单元格

非常感谢您的帮助

Dim lastRow As String
lastRow = ActiveSheet.Cells(Rows.Count, "C").End(xlUp).Row + 1

Range("G2:I" & LastR).Select
Selection.Copy
Range("D" & lastRow).PasteSpecial xlPasteValues

Range("A2:C" & LastR).Select
Selection.Copy
Range("A" & lastRow).PasteSpecial xlPasteValues

---

请在第二行activesheet.cells.unmerge下面尝试此注释 它将解除表中所有单元格的合并。 也不要忘记检查最后一行和最后一行的值。 Smt喜欢这样就行了。

---

如果lastrow请在第二行activesheet.cells.unmerge下面尝试此注释 它将解除表中所有单元格的合并。 也不要忘记检查最后一行和最后一行的值。 Smt喜欢这样就行了。

---

如果lastrowso，什么是“LastR”’valueDim LastR与ActiveSheet LastR=.Cells（.Rows.Count，3）一样长。End（xlUp）。row请在第二行“ActiveSheet.Cells.unmerge”下方尝试此注释。那么，“LastR”valueDim LastR与ActiveSheet LastR=.Cells（.Rows.Count，3）一样长。End（xlUp）。row请在第二行下方尝试此注释“activesheet.cells.unmerge”