Copy contents from all sheets into 1

[Steph]

Hello all. If I have a workbook that have several sheets, how can I copy
the contents of each sheet and paste that one under the other on the sheet
called "Consolidated". So basically I will be consolidating all sheets in
workbook except 'Consolidated' onto the sheet 'Consolidated', one under he
other. Thanks!

 

[Tom Ogilvy]

set sh1 = Worksheets("Consolidated")
for each sh in Worksheets
if sh.Name <> sh1.Name then
sh.Usedrange.copy Destination:= _
sh1.cells(rows.count,1).End(xlup)(2)
end if
Next

would be a start and should work if you data is organized as a table with
the bottom left corner filled in (column A)