Qué tal, tengo un problema copiando la columna G de Libro1 a la columna 0 de Libro 2, estoy tratando de copiar y pegar en la última celda disponible de la columna O y así sucesivamente.
Me despliega la ventana con el error '6' de Desbordamiento
Adjunto mi macro:
Private Sub CopiarColumna(Archivo As String)
Dim Lcopia As Workbook
Dim LDestino As Workbook
Dim Destino As Worksheet
'--
Set LDestino = ActiveWorkbook
Set Destino = ActiveSheet
Set Lcopia = Workbooks.Open(Archivo)
Sheets("ReporteCifrasControl").Range("G2" & Sheets(1).Range("G" & Cells.Count).End(xlUp).Cell).Copy
MsgBox ("Ya copié")
Destino.Range("O" & Destino.Range("O" & Cells.Count).End(xlUp).cell + 1).PasteSpecial xlPasteValuesAndNumberFormats
MsgBox ("Pero no pego nada")
Destino.Range("O" & Destino.Range("O" & Cells.Count).End(xlUp).cell + 1).PasteSpecial xlFormats
MsgBox ("Sigo sin hacer nada")
ActiveWorkbook.Close
End Sub