Hallo Mario,
fällt Dir hier was auf?
.PasteSpecial Paste:=xlValues .PasteSpecial past:=xlFormats
Beim zweiten fehlt ein e .PasteSpecial paste:=xlFormats
Gruß KH