eben noch Mark , jetzt Morning, 

deine Dir Anweisung  weis doch gar nicht zu welchem Verzeichnis es gehört.  das dir() ohne  Pfad  ist mit dem Dir(Pfad)  quasi verknüpft.  Dann wird das nichts mit zweimal hintereinander dir(Pfad)  und später zweimal hintereinander dir()

baue deine Schleifen um oder lass sie nach einander laufen. die Blätter landen doch eh in der gleichen Datei.