Copy contents from all sheets into 1
 

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!

Copy contents from all sheets into 1
 

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)

--
Regards,
Tom Ogilvy




"Steph" wrote in message
...
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!