Ayuda con macro no me funciona para generar informes

Buenas noches tengo la siguiente macro
Sub Copiar()
Dim col As Long
Dim src As Worksheet, Dst As Worksheet
Dim por As Long
Set src = Workbooks("CC_06789").Sheets("Hoja1")
Set Dst = Workbooks("InformeConsolidado").Sheets("Hoja1")
For por = 2 To 20
col = Application.Match(src.Cells(1, por), Dst.Rows(1), 0)
src.Columns(por).Copy
Dst.Cells(1, col).PasteSpecial Paste:=xlPasteValues
Next
End Sub
la macro copia información de un archivo a otro pero no me funciona en su
totalidad lo que necesito si me pueden ayudar es lo siguiente tengo dos
archivos uno con información y otro vacío donde debo copiar la
información
archivo 1
Cedula Nombre Apellido Departamento Municipio Rol Ingreso Nota
879798 camilo jimenez caldas manizales coordi 5 horas 30 seg 95
45789 cesar orrego Caldas manizales alumno nunca 80
455456 julio arango caldas Manizales coordi 1 hora 60 seg 90



archivo 2
Cedula Nombre Apellido Departamento Municipio Rol Ingreso Nota
En este archivo debo copiar información del archivo 1 pero con las
siguientes características no deben de haber números de cedula repetidas en el
archivo donde se copia la información en si no deben de haber usuarios
repetidos, en la columna Ingreso de la tabla donde se copian los datos solo se
debe manejar dos estados: Ingreso, No a ingresado, me explico si en los
archivos que e saca la información es diferente de nunca se pone ingreso si aparece
nunca se pone no ingreso, entonces al final de que se copia los datos del
archivo inicial el archivo final debe tener los datos de cada aspirante con su
respectiva nota y si ingreso o no, por eso solo debe existir una fila por
aspirante.
esta macro solo copia y pega no me hace las validaciones y no me copia la
fila cedula de resto funciona bien ayuda por favor
Agradezco su ayuda