Can someone modify the macro below so that it will always copy the las
row and paste one row below when I run the macro.
The macro runs from sheet 1 - sheet 10

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 6/8/2004 by Michael
'

'
Sheets("Sheet 1").Select
Range("A240").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Range("A241").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Sheet 2").Select
Range("A240").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Range("A241").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A242").Select

.............. until Sheet 10

End Sub

Thanks
Michae

--
Message posted from http://www.ExcelForum.com