Скопируйте один столбец в последнюю пустую ячейку другого столбца другой книги VBA.

Question

Я хочу скопировать столбец G из wb1 в последнюю доступную ячейку столбца O в wb2, я реализовал макрос, но он отображает ОШИБКУ 6 OVERFLOW. Я думаю, что подсчет ячеек правильный, потому что это то, что я хочу знать, не весь столбец, а поправьте меня, если я ошибаюсь.

    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

С LastRow

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