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/