set wkbk = ActiveWorkbook
workbooks.Add
set shDest = Activeworkbook.Worksheets(1)
for each sh in wkbk.Worksheets
sh.Range("A1:B200").Copy Destination:= _
shDest.Cells(rows.count,1).End(xlup)(2)
Next

--
Regards,
Tom Ogilvy


"LSN" wrote in message
...
Hi,

I have 87 sheets in a workbook were all sheets contains some data in
different cells. I want to copy that cell data from all sheets to a new
sheet or a new
workbook so its becomes more easy to process.

Anyone who have a good tip?

Thanks in advance.