Hy,

wieso bekomm ich bei dem Code immer Fehlermeldung nach dem alles so ausgeführt wurde wie ich es brauche...

'Paste & Copy
 Dim wr As Worksheet
  For Each wr In Worksheets
   wr.Range("A63:F63").Select
    wr.Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    wr.Range("F3").Select
    wr.Paste
    wr.Range("A63:G63").Select
    wr.Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete
    Application.CutCopyMode = False
 Next