Consolidating Sheets Data

Hi,

I need some help around the following:

I have a file with 3 tabs: sheet 1, sheet 2, sheet3.

I want to consolidated the data of these tabs in a single sheet, along with the tab name. The "consolidated" sheet in the attached file is my desired output that I need.

Will you folks help me accomplish this? Thanks in advance

HI
Paste the following codes in the macro window (alt F11 insert > module)

Sub consolidate()
Dim a As Integer, x As Integer, z As Integer
Range("A2:C10000").ClearContents
For a = 2 To Sheets.Count
x = Worksheets(a).Cells(Rows.Count, 1).End(xlUp).Row
Worksheets(a).Range("A2:B" & x).Copy
z = Worksheets("consolidated").Cells(Rows.Count, 2).End(xlUp).Row + 1
 Worksheets("consolidated").Range("A" & z & ":A" & z + x - 2) = Worksheets(a).Name
 Worksheets("consolidated").Range("B" & z).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
Next a
MsgBox "Listing is complete."
End Sub

run the macro

Thanks a lot.. it worked for me...