Erste Korrektur (Vergessen die Kopfzeile in den Kollegen-Dateien beim Einfügen abzuziehen):

'Nur Werte in die Sammel-Datei einfügen
      chronikTabelle.Range(Cells(letzteZeileHauptChronik, 1), _
          Cells(letzteZeileHauptChronik + letzteZeileKollegenDatei - 1, 11)).PasteSpecial Paste:=xlValues
       
      'Nur Formate einfügen
      chronikTabelle.Range(Cells(letzteZeileHauptChronik, 1), _
          Cells(letzteZeileHauptChronik + letzteZeileKollegenDatei - 1, 11)).PasteSpecial Paste:=xlPasteFormats