Sub copyClueless()
'
' copyClueless Makro
' 25.11.2006 
'
' Tastenkombination: Strg+m
'
    Range("A12:I20").Select
    Selection.Copy
    Sheets("new").Select
    Range("B2").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Sheets("temp").Select
    Range("L12:T20").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("new").Select
    Range("V2").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Sheets("temp").Select
    Range("W12:AE20").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("new").Select
    Range("AP2").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Sheets("temp").Select
    Range("A22:I30").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("new").Select
    Range("B22").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Sheets("temp").Select
    Range("L22:T30").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("new").Select
    Range("V22").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Sheets("temp").Select
    Range("W22:AE30").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("new").Select
    Range("AP22").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Sheets("temp").Select
    Range("A32:I40").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("new").Select
    Range("B42").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Sheets("temp").Select
    Range("L32:T40").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("new").Select
    Range("V42").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Sheets("temp").Select
    Range("W32:AE40").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("new").Select
    Range("AP42").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
End Sub