The following will copy the range A1:C3 from every sheet onto the currently
active sheet, but not itself, offsetting the data by the value in xstep.
xlocate define the first copy destination.

Sub ConsSheets()
Dim wS As Worksheet
Dim xstep As Integer, xLocate As Long
xstep = 3: xLocate = 4
For Each wS In ActiveWorkbook.Worksheets
If wS.Index < ActiveSheet.Index Then
wS.Range("A1:C3").Copy Destination:=ActiveSheet.Cells(xLocate, 1)
xLocate = xLocate + xstep
End If
Next
End Sub


--
Cheers
Nigel



"JEFF" wrote in message
...
Hello,

I have a workbook with 50+ worksheets that have data in the exact same
place
and format. I would like to take the contents of each worksheet and
consolidate it into a single worksheet, working downwards. For example,
the
data in all sheets is found in A1:C3. I would like this consolidated
worksheet to have the contents of sheet one be in the same A1:C3, but
sheet
two's data would go directly underneath, into cells A4:C6, sheet three's
data
into cells A7:C9.... and so on.

Note:
1. The number of original worksheets could grow from 50 to 100
2. The consolidated data could be a new workbook, a new worksheet, or on
the first worksheet

Thanks a lot in advance!