Vba oprydning i csv filer

Hej

Jeg ønsker at rydde op i csv filer hvor der ofte er fejl i.
Se fil her:

http://gupl.dk/709344/

Jeg ønsker en makro der kan gennemgå kolonne A, startende fra række 9 og indtil sidste række. Længden af csv filerne varierer, så den skal selv finde den sidste række. Når den har fundet en fejl, f.eks i række 182, skal den slette celle A182 og trække rækkerne nedenunder A182 (A183-ctrlA-ctrlx-A182-ctrlV) op så der ikke er et mellemrum. Derefter kører den så videre til næste række nedenunder.

Jeg har selv prøvet med en If then sætning, men jeg kan ikke få det til at virke.

Ps. Nogle rækker er anderledes, f.eks. A281, men er ikke en fejl. Det er en dato angivelse

Håber det var til at forstå.

Hilsen TUFexcel