Sub Macro4()
'
' Macro4 Macro
' Macro recorded 31/01/2006 by McNaughton
'
' Keyboard Shortcut: Ctrl+n
'
Cells.Select
Selection.Copy
ActiveSheet.Next.Select
ActiveSheet.Paste
ActiveCell.Offset(32, 0).Range("A1:D54").Select
Application.CutCopyMode = False
Selection.ClearContents
ActiveCell.Offset(-31, 6).Range("A1:A85").Select
Selection.ClearContents
ActiveCell.Offset(0, -2).Range("A1").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = ActiveSheet.Previous.Range("F86")
End Sub

Hi, what is this macro suposed to do??