Excel 将一列复制到另一工作簿VBA另一列的最后一个空单元格

我想将G列从wb1复制到wb2中O列可用的最后一个单元格，我实现了一个宏，但它显示错误6溢出。 我认为细胞计数是正确的，因为这是我想知道的，不是整个专栏，但如果我错了，请纠正我

    Private Sub C_C(File As String)

Dim Lcopy As Workbook
Dim LDestiny As Workbook
Dim Destiny As Worksheet
'--
Set LDestiny = ActiveWorkbook
Set Destiny = ActiveSheet
Set Lcopy = Workbooks.Open(File)


Sheets("RCC").Range("G2" & Sheets(1).Range("G" & Rows.Count).End(xlUp).row).Copy
MsgBox ("Copied")
Destiny.Range("O").SpecialCells(xlCellTypeLastCell).Column
MsgBox ("Dont do anything")


ActiveWorkbook.Close
End Sub

和拉斯特罗

Private Sub C_C(File As String)

    Dim Lcopy As Workbook
    Dim LDestiny As Workbook
    Dim Destiny As Worksheet
    '--
    Set LDestiny = ActiveWorkbook
    Set Destiny = ActiveSheet
    Set Lcopy = Workbooks.Open(File)


    Sheets("ReporteCifrasControl").Range("G2" & Sheets(1).Range("G" & Rows.Count).End(xlUp).row).Copy
MsgBox ("Copied")
Destino.Range("O" & Destino.Range("O" & Rows.Count).End(xlUp).row + 1).PasteSpecial xlPasteValues
MsgBox ("Dont do anything")


    ActiveWorkbook.Close
    End Sub

---

Destino.Range（“O”）.SpecialCells（xlCellTypeLastCell）.Column

-这应该做什么？@BigBen应该查找“O”列的最后一个可用单元格，并将G2列中的所有数据粘贴到其中。有关如何查找最后一行的信息，请参阅。@BigBen我有最后一行的副本/粘贴，那一块我有它上面，但我如何找到最后一个可用的单元格？我试图找到最后一行，但它没有粘贴任何内容，我可以粘贴我是如何做到的。

Sheets（“reportecirascontrol”）.Range（“G2:G”和Sheets（1）.Range（“G”和Rows.Count）.End（xlUp）.row.复制