Macro for Consolidating

[sriangineyam]

i have data in multiple sheets i want to consolidated into one sheet as output sheet in below link.,

Please help me out in this.,

https://www.mediafire.com/?knmuuoc35shgm57


[TABLE="width: 319"]
<colgroup><col span="3"><col><col></colgroup><tbody>[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD="align: right"][/TD]
[/TR]
[TR]
[TD="align: right"][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD="align: right"][/TD]
[/TR]
[TR]
[TD="align: right"][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD="align: right"][/TD]
[/TR]
[TR]
[TD="align: right"][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD="align: right"][/TD]
[/TR]
</tbody>[/TABLE]

 

[venkat1926]

google search will give you ideas
e.g.

How to merge worksheets / workbooks into one worksheet?

 

[sriangineyam]

Thanks Venkat .,

But this is the sample data ., I need to Develop very huge data where it starts first.,

Thanks .,

I need to put how to auto sort option .,

and one more if i want to exclude any sheet how to do that .,

Sub Combine()
Dim J As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Combined"
Sheets(2).Activate
Range("A1").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A1")
For J = 2 To Sheets.Count
Sheets(J).Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
Next
End Sub

 

[venkat1926]

I have not gone through your macro
for exclusion of one or more sheets the e.g below may be of use to you

dim j as integer
for j=1 to worksheets.count
with worksheets(j)
if .name="summary" or .name="venkat" then goto to nextj

<your other="" codes="" for="" sheets="" come="" in="" here="">
--------
end with 
nextj:
next j

</your>