Hallo zusammen,

kann man diesen code schöner und übersichtlicher machen:

Sheets("Jahresauswertung").Select

Range("F2:H21").Copy
Range("F30").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("I2:K21").Copy
Range("F50").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("L2:N21").Copy
Range("F70").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("O2:Q21").Copy
Range("F90").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("R2:T21").Copy
Range("F110").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("U2:W21").Copy
Range("F130").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("X2:Z21").Copy
Range("F150").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("AA2:AC21").Copy
Range("F170").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("AD2:AF21").Copy
Range("F190").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("AG2:AI21").Copy
Range("F210").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("AJ2:AL21").Copy
Range("F230").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("AM2:AO21").Copy
Range("F250").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("G30:H500").Select
Application.CutCopyMode = False
Selection.Copy

Range("J30").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

ActiveSheet.Range("$J$30:$K$500").RemoveDuplicates Columns:=Array(1, 2), _
Header:=xlNo


Besten Dank
:-)