The following is a simple recorded macro, nothing written by myself bu
what I am looking for is to repeat these same steps over multipl
sheets but the problem I have is finding the line of code to put befor
each paste that will make sure I am pasting just below the previou
paste. The sheets are all of varying length so I can never be sur
which cell will be the bottom cell.

Thanks for the help.

Sub Master_Copy2()

Sheets("L-96").Select
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Master").Select
ActiveSheet.Paste
Range("A1").Select
Sheets("L-95").Select
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Master").Select


End Su

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

Jayhawk,

Sub Master_Copy3()
Dim mySht As Worksheet

For Each mySht In Worksheets(Array("L-96", "L-95", "L-94"))
mySht.Range("A1").CurrentRegion.Copy _
Sheets("Master").Range("A65536").End(xlUp)(2)
Next mySht

End Sub

HTH,
Bernie
MS Excel MVP

"Jayhawktc " wrote in message
...
The following is a simple recorded macro, nothing written by myself but
what I am looking for is to repeat these same steps over multiple
sheets but the problem I have is finding the line of code to put before
each paste that will make sure I am pasting just below the previous
paste. The sheets are all of varying length so I can never be sure
which cell will be the bottom cell.

Thanks for the help.

Sub Master_Copy2()

Sheets("L-96").Select
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Master").Select
ActiveSheet.Paste
Range("A1").Select
Sheets("L-95").Select
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Master").Select


End Sub


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