Hi,
You can try this:
Sub Consolidate()
'10/5/2010 by David
Dim ws As Worksheet
For Each ws In Worksheets
Sheets(ws.Name).Select
If ActiveSheet.Name = "Table 1" Then
Sheets.Add
Sheets(ActiveSheet.Name).Name = "Consolidate"
Sheets(ws.Name).Select
End If
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Sheets("Consolidate").Select
ActiveCell.SpecialCells(xlLastCell).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.End(xlToLeft).Select
ActiveSheet.Paste
Next ws
End Sub
Hope it helps.
Thanks,
David
On Oct 5, 9:50 am, Idhrees Mohamed <idhrees...@gmail.com> wrote:
> Dear Team,
>
> I attach sample excell sheet. In this regard i need consolitate all sheet
> datas in single sheet. Here one heading Row is common for all sheet datas.
> Because i have big excell file i won't copy and paste in single sheet. Any
> ideas about this query (Macro or Any Formula). Please help this requirement
> is urgent.
>
> Thanks in Advance.
>
> --
> Thanks & Regards,
>
> Mohamed Idhrees. S.
>
> Consolitate.xlsx
> 23KViewDownload
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/pages/discussexcelcom/160307843985936?v=wall&ref=ts
