Macro para copiar datos de un libro a la ultima fila de otro libro
Queria consultar si alguien puede ayudarme, estoy escribiendo una macro para copiar datos de ciertas celdas del libro origen, a la ultima fila del libro destino, y que esta macro recorra todas las hojas del libro origen y vaya copiando los datos a una sola solapa del libro destino.
Copio parte del codigo para ver si me pueden ayudar.
Desde ya muchas gracias por su tiempo.
Saludos.
Dim LibroDestino As Workbook
Application.ScreenUpdating = False
Set LibroOrigen = Workbooks.Open("\\Consignatria 2020.xlsx")
Set LibroDestino = Workbooks.Open("C:\PruebaCarga.xlsx") 'Abre libro destino
On Error Resume Next
BuscarHoja = (LibroDestino.Worksheets("Vencimientos").Name <> "") 'Busca en el libro destino si existe la solapa
If BuscarHoja = False Then 'si no existe la solapa, la crea
Sheets.Add before:=Sheets(1)
End If
ActiveSheet.Name = "Vencimientos" 'Selecciona la solapa
Sheets("Vencimientos").Activate
Sheets("Vencimientos").Cells.Select
Selection.ClearContents 'Borra todo el contenido de la Solapa
LibroOrigen.Activate
For i = 1 To Sheets.Count
If LibroOrigen.Sheets(i).Cells(105, "D").Value = 2020 Then
LibroDestino.Sheets("Vencimientos").Range("A" & i).Value = LibroOrigen.Sheets(i).Range("D4").Value 'Fecha del negocio
LibroDestino.Sheets("Vencimientos").Range("B" & i).Value = LibroOrigen.Sheets(i).Range("S48").Value 'Liquidacion
LibroDestino.Sheets("Vencimientos").Range("C" & i).Value = LibroOrigen.Sheets(i).Range("K4").Value 'Cliente
LibroDestino.Sheets("Vencimientos").Range("D" & i).Value = LibroOrigen.Sheets(i).Range("G4").Value 'Frigorifico
LibroDestino.Sheets("Vencimientos").Range("E" & i).Value = LibroOrigen.Sheets(i).Range("D16").Value 'Cabezas
LibroDestino.Sheets("Vencimientos").Range("F" & i).Value = LibroOrigen.Sheets(i).Range("W16").Value 'Monto del negocio total
LibroDestino.Sheets("Vencimientos").Range("G" & i).Value = LibroOrigen.Sheets(i).Range("V58").Value 'Monto Negocio
LibroDestino.Sheets("Vencimientos").Range("H" & i).Value = LibroOrigen.Sheets(i).Range("V61").Value 'Comision
LibroDestino.Sheets("Vencimientos").Range("I" & i).Value = LibroOrigen.Sheets(i).Range("V62").Value 'Fondo de garantia
LibroDestino.Sheets("Vencimientos").Range("J" & i).Value = LibroOrigen.Sheets(i).Range("V68").Value 'REt. IIBB
LibroDestino.Sheets("Vencimientos").Range("K" & i).Value = LibroOrigen.Sheets(i).Range("Q82").Value 'Retencion Ganancias
LibroDestino.Sheets("Vencimientos").Range("L" & i).Value = LibroOrigen.Sheets(i).Range("Q84").Value 'A depositar
LibroDestino.Sheets("Vencimientos").Range("P" & i).Value = LibroOrigen.Sheets(i).Range("Q21").Value 'Vto
LibroDestino.Sheets("Vencimientos").Range("Q" & i).Value = LibroOrigen.Sheets(i).Range("T96").Value 'Saldo
LibroDestino.Sheets("Vencimientos").Range("R" & i).Value = LibroOrigen.Sheets(i).Range("D108").Value 'Codigo
End If
Next i