Hola Darío,

Sin tener el Excel, es mas complicado, pero por lo que veo en el word y el código que has mandado, lo primero que haces es buscar si existe ya el valor del código (celda C3 de la hoa Registro). Si lo encuentras en la columna A de la hoja Datos, cargas el rango en C o CC, depende de si es valor o formula.

Después, tienes una condicion para ejecutar el código que viene abajo: If Not C Is Nothing Or Not CC Is Nothing Then, que por cierto, no tienes End if en el fichero txt que mandaste, con lo que te tiene que dar error, salvo que te falte algo de copiar.

Este código, pide confirmacion de reemplazar, que si le dices "no" sale, pero si le dices "si", continúa, y lo que hace es insertar una nueva linea:

    Sheets("Datos").Select
    Rows("7:7").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Yo creo que lo que tienes mal es la condicion If Not C Is Nothing Or Not CC Is Nothing Then. Lo que quieres es que si C es nada y CC es nada, es decir, no ha encontrado la referencia, ejecute el código que viene debajo (insertar nuevo registro), pero que si lo ha encontrado, que te copie sobre la fila de C o CC.

Prueba a quitar los Not y cambiar el or del if por un and, es decir, si TANTO C como CC son nothing (no ha encontrado el rango), inserte una nueva fila. Si no, que ejecute el ELSE que sería la agregacion de un nuevo registro.

If C Is Nothing And CC Is Nothing Then

 lo que tienes ahora

else

 el código para sobreescribir los datos en c.row o cc.row

end if

Te subo con modificaciones. Creo que esto es lo que querías.

Por favor, chequealo y me dices.

Por otro lado, he hecho que funcione (o eso creo...). De todas formas, veo que tu código es bastante "mejorable". Si quieres profundizar un poco mas, puedes ver este artículo sobre buenas prácticas. No te llevará mucho, pero creo que te ayudará bastante.

https://informaticamuyfacil.com/buenas-practicas-en-vba

Saludos

El proyecto está protegido por contraseña

 Estás haciendo los BUSCARV sobre B3 en vez de sobre C3. Cambia esta parte del código de Sub EXTRAER

Range("A28").Select

    ActiveCell.FormulaR1C1 = _

        "=IFERROR(IF(VLOOKUP(Registro!R[-25]C[2],Datos!R7C1:R100000C232,26,0)="""","""",VLOOKUP(Registro!R[-25]C[2],Datos!R7C1:R100000C232,26,0)),"""")"

    Range("A29").Select

    ActiveCell.FormulaR1C1 = _

        "=IFERROR(IF(VLOOKUP(Registro!R[-26]C[2],Datos!R7C1:R100000C232,27,0)="""","""",VLOOKUP(Registro!R[-26]C[2],Datos!R7C1:R100000C232,27,0)),"""")"

 Estás haciendo los BUSCARV sobre B3 en vez de sobre C3. Cambia esta parte del código de Sub EXTRAER

Range("A28").Select

    ActiveCell.FormulaR1C1 = _

        "=IFERROR(IF(VLOOKUP(Registro!R[-25]C[2],Datos!R7C1:R100000C232,26,0)="""","""",VLOOKUP(Registro!R[-25]C[2],Datos!R7C1:R100000C232,26,0)),"""")"

    Range("A29").Select

    ActiveCell.FormulaR1C1 = _

        "=IFERROR(IF(VLOOKUP(Registro!R[-26]C[2],Datos!R7C1:R100000C232,27,0)="""","""",VLOOKUP(Registro!R[-26]C[2],Datos!R7C1:R100000C232,27,0)),"""")"