Ayuda... Copiar rangos y guardar datos nuevos

Buenas noches.

Estoy haciendo una macro para verificar una informacion, pero quiero introducirle dos instrucciones que aun no he podido, solicito de su colaboracion. las instrucciones son:

1. Que las fórmulas que están en el rango F6 a R6 se copien hasta la última celda de la columna A que tenga valor. Yo lo hice como esta en la macro que ejecuto con el botón (lupa) allí insertado, pero solo me copia uno a uno cada vez que aparece una celda vacía, yo quiero copiar todo el bloque con un solo clik.
   
2. Los Nits que están registrados en la columna A me los busque en la base de datos de TERCEROS, y si no encuentra nada, entonces que me permita crearlos mediante un userform (ya lo diseñe), así hasta que ya estén todos registrados, una vez esto suceda entonces correr la macro de arriba.
   

Espero hacer sido explícito. Agradezco su atención prestada.

Cuadrebases.zip