Macro que extrae datos me pide nuevas características

Hola buenas tardes tengo el siguiente problema tengo dos archivos y tengo que unir varios datos en un tercero llamamo archivo3 extrayendo algunas celdas del archivo1 y otras del archivo2 pero se deben de realizar validaciones me explico en los dos archivos siempre está el numero de ID entonces tengo que validar que los datos del archivo1 al copiar coincidan con los datos del archivo2 en el numero de ID esto se hace comparando los números de ID el tercer archivo tiene una macro que valida que no se ingrese datos como letras en los campos cedulas y números en los campos de texto, tengo una macro que solo copia de un
archivo a otro pero no realiza las validaciones del numero de id coincidan al pegar en el tercer archivo, y solo copia de un solo archivo a otro no de dos,

Agradezco su ayuda gracias
Sub copia_pega()
Dim Comprobar, Contador
Comprobar = True: Contador = 1 ' Inicializa variables.
Do ' Bucle externo.
Do While Contador < 65000 ' Bucle interno.
Contador = Contador + 1 ' Incrementa el contador.
Windows("Libro1.xlsx").Activate
Sheets("Hoja1").Select
If Range("A" & Contador).Value <> "" Then ' Si la
condición es verdadera.
CEDULA = Range("A" & Contador).Value
NOMBRE = Range("B" & Contador).Value
APELLIDO = Range("C" & Contador).Value
DEPARTAMENTO = Range("D" & Contador).Value
MUNICIPIO = Range("E" & Contador).Value
ActiveWindow.ActivateNext
Windows("Libro2.xlsx").Activate
Sheets("Hoja1").Select
k = Range("A" & Cells.Rows.Count).End(xlUp).Row + 1
Range("A" & k).Value = APELLIDO
Range("B" & k).Value = NOMBRE
Range("C" & k).Value = CEDULA
Range("D" & k).Value = DEPARTAMENTO
Range("E" & k).Value = MUNICIPIO
ActiveWindow.ActivateNext
Else
Comprobar = False ' Establece el valor a False.
Exit Do ' Sale del bucle interno.
End If
Loop
Loop Until Comprobar = False ' Sale inmediatamente del bucle externo.
End Sub