Ohne jetzt jede Zeile Code überprüft zu haben, könnte der Fehler in den Do...Loop-Anweisungen liegen. Schau dir z.B. die Zeile #23 einmal an und überlegt dir was sie macht. (Versteckter Text) Sonst einmal hier Debuggen, Fehler finden und beseitigen oder google.com/search?q=vba+richtig+debuggen