Macro que copie datos que cumplan una condición

http://www.todoexpertos.com/categorias/tecnologia-e-internet/software-y-aplicaciones/microsoft-excel/respuestas/cwne5bntmzhq6/macro-que-copie-datos-que-cumplan-una-condicion-y-revise-si-se-han-copiado-anteriormente

encontré en este link dos ejemplos de macros para copiar en otra hoja datos que cumplan una condición, sólo que parece que en la opción 2 ( copia sin dejar espacios en blanco) hay un error, me podrían decir como puedo corregirla, con la primera opción ya pude, pero me deja filas vacías (de las que no cumplen la condición), y necesito que las copie continuas sin dejar filas en blanco

De antemano, muchas gracias