Hallo

ich bin sprachlos wie - UNAUFMERKSAM - Forum Ratgeber Anfragen und vor allem Codes lesen. 

Den Fehler sah ich in 2 Sekunden!      Das kann man doch nicht übersehen - Range("A2:I16").Select.Copy

Und was soll das im Code dieselbe Tabelle mit Activate und danach mit Select anzusprechen??  Was für ein Unfug!!!

So sieht der Code ohne Select und ohne PasteSpecial aus.  Noch kürzer geht es nicht. 

Worksheets("Formsatz- und Kalibrierungstypen").Range("A2:I16").Copy _
Worksheets("Tabelle1").Range("D8")

mfg Nobody