Paste Special - Macrofehler, 2x PasteSpecial

Sub copy_Formeln()
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:= _
False
Application.CutCopyMode = False
End Sub

Dieses Macro läuft bei mir auf einen Fehler wenn ich den Code in ein Modul kopiere und dann ausführen lasse - auch wenn ich vorher einen Bereich markiert habe und auf dem Zielbereich stehe.
Warum? (Wenn es doch aus dem AddIn heraus geht)
Außerdem wollte ich ein neues Macro machen das sowohl Wert und Formate in einem Schritt in den Zielbereich einfügt - wären dann 2 PasteSpecial (value und Format) hintereinander - wie geht das?
Wäre schön wenn da jemand helfen könnte.
Vielen Dank Lutz