Sub copytonext()
'
' copytonext Makro
' 07.02.2008
'
' Tastenkombination: Strg+d
'
    Columns("B:AX").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveSheet.Next.Select
    Range("B1").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
End Sub