Grüezi Thomas,
ich habe das noch nicht probiert, nur angedacht und sehe da
auch die Formatprobleme. Selbst wenn man die Formate kopiert
fehlen einem die Spaltenbreiten.
Das aber ist noch relativ einfach möglich 
ich weiß jetzt nicht genau wie du das meinst. Sicher kann ich in Schleifen über die ganzen Blätter auch Schleifen über die Spalten anlegen und die Breiten übertragen.
Lieber wär mir aber sowas in Pseudocode:
wks2.columnswidth=wks1.columnswidth
Upps, sehe eben erst, du hast das ja schon in deinem Code, sehr schön.
Aber antworte jetzt nicht hier darauf, das kommt noch daß ich dich befrage 
Auch bei Ermittlung des echten Usedrange sehe ich Probleme.
Und ich kann nicht abschätzen was noch alles für Probleme
auftreten werden wenn ich die Sache angehen würde.
Ich habe mal ein paar Dinge angedacht und soweit auch schon
umgesetzt - bis einschiesslich Formeln die sich auf andre
Tabellenblätter beziehen klappt das IMO auch schon ganz
leidlich.
Ich hatte schon länger vor da einen Mappen-Neuaufbau-Code zu schreiben.
Da nehme ich doch gerne deinen Code als Ausgangsbasis.
Naja, was ändern daran muß ich wohl.
Usedrange ist verlogen, SpecialCells auch:
In einem leeren Blatt:
Sub tt()
Range(„A1“).Value = „x“
MsgBox ActiveSheet.UsedRange.Address
MsgBox ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Address
Range(„IV60000“).Interior.ColorIndex = 3
Range(„IV60000“).Interior.ColorIndex = xlNone
MsgBox ActiveSheet.UsedRange.Address
MsgBox ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Address
End Sub
Wenn schon denn schon sollte der Code auch sowas ausbügeln. Grad für den auch nicht seltenen Fall daß Mappen sich grundlos gewaltig in der dateigröße aufblähen.
Aber das wird ein paar Tage dauern, muß ja erstmal eine Testmappe bauen die möglichst allen möglichen „Schnickschnack“ hat, sehr buntig, verbundene Zellen, Rahmen kreuz und quer um die zellen, 126 Schriftarten, PTs, Diagramme, bed. Formatierungen, vergebene Namen,
Verknüpfungen, falshen usedrange, diverse Zellformatierungen, Gruppierungen, Gliederungen, Gültigkeitszellen, u.v.m.
Insofern ist für mich diese Beitragsfolge erst mal erledigt.
Außer der Anfrager beantwortet netterweise meine Nachfrage wie er denn nun da die seltsame Mappe kopiert hat sodaß das Problem weg war. Denn meinem Bauchgefühl ging es viel zu schnell bis die Meldung kam, Mappe kopiert und alles okay. Und es sagt mir der Anfrager hat da nie und nimmer die Mappe wie angeraten neu aufgebaut.
Aber logo täuscht sich gelegentlich auch mein Bauchgefühl
)
Gruß
Reinhard