Eliminar lineas no consecutivas

Hola al grupo,

Continuando con una consulta del día 2 con el mismo asunto, resulta que
funciona bien la macro (que me hizo Héctor Miguel), pero si se ejecuta sin
que en la columna "A" haya ninguna celda con algún valor (fecha en este
caso), todas las filas se traspasan al libro "historico", cosa que no
deberían hacer (no la había probado a fondo). Dentro de mis limitaciones en
el VBA yo lo he intentado solucionar, pero parece ser que no es lo mío -
todavía-.
Si alguien puede echarme una mano se lo agradecería.
Un saludo

Jesús