Ich habe zwar den Code schon selbst aber bei mir fügt er nix ein. Könnt ihr mal schauen an was das leigen kann.
Vielen dank Happy
Range("G" & x & ":H" & x & ",K" & x & ":P" & x).Select
Selection.Copy
Sheets(4).Select
Range("A2").Select
ActiveSheet.Paste