Copiar primera columna de varias hojas en otro libro excel

[fdbchp]

Buenos días,

Tengo dos libros excel

1.- Copia de localizar_duplicados_hoja1_en_hoja2_a_4

2.- Archivo_A

ambos comparten 4 hojas con el mismo nombre

MAYO_15

Devolucion_MAYO_15

Anulacion cobros_MAYO_15

Anulacion_devolución_MAYO_15

Querría conseguir que la primera columna de estas hojas del libro MAYO_2015 se copiaran en la primera columna de las respectivas hojas del libro Copia de localizar_duplicados_hoja1_en_hoja2_a_4.

Adjunto una macro para copiar varias columnas de un libro de excel a otro, pero no sé adaptarla para que sólo me copie la primera columna.

Además, en la última hoja del libro Copia de localizar_duplicados_hoja1_en_hoja2_a_4 hay una hoja denominada "duplicados" pero al ejecutar esa macro me va sumando los valores, en vez de borrar y actualizar de nuevo cada vez que se aprieta el botón.

En resumen:

-Necesitaria adaptar la macro asociada a la hoja "duplicados" del libro Copia de localizar_duplicados_hoja1_en_hoja2_a_4 para que no repitiese datos sino que actualizar nuevamente lo que hay.

Y necesitaria ajustar la macro que detallo a continuación para que me copie solo la primera columna de cada una de las 4 hojas citadas del libro ARCHIVO_A y las pegue en las respectivas hojas del libro Copia de localizar_duplicados_hoja1_en_hoja2_a_4

End Sub Ahi va la macro:

Sub CopiarCeldas()

'Definir objetos a utilizar

Dim wbDestino As Workbook, _

wsOrigen As Excel.Worksheet, _

wsDestino As Excel.Worksheet, _

rngOrigen As Excel.Range, _

rngDestino As Excel.Range

'Indicar el libro de Excel destino

Set wbDestino = Workbooks.Open(ActiveWorkbook.Path & "\Copia de localizar_duplicados_hoja1_en_hoja2_a_4.xlsx")

'Activar este libro

ThisWorkbook.Activate

'Indicar las hojas de origen y destino

Set wsOrigen = Worksheets("MAYO_2015")

Set wsDestino = wbDestino.Worksheets("MAYO_2015")

'Indicar la celda de origen y destino

Const celdaOrigen = "A1"

Const celdaDestino = "A1"

'Inicializar los rangos de origen y destino

Set rngOrigen = wsOrigen.Range(celdaOrigen)

Set rngDestino = wsDestino.Range(celdaDestino)

'Seleccionar rango de celdas origen

rngOrigen.Select

Range(Selection, Selection.End(xlDown)).Select

Range(Selection, Selection.End(xlToRight)).Select

Selection.Copy

'Pegar datos en celda destino

rngDestino.PasteSpecial xlPasteValues

Application.CutCopyMode = False

'Guardar y cerrar el libro de Excel destino

wbDestino.Save

wbDestino.Close

End Sub

ARCHIVO_A.zip