If all the sheets has same format then you can use this Macro


May be this help this Macro

Sub newsummarysheet()
Sheets.Add
ActiveSheet.Name = "Summary"
For Each ws In ActiveWorkbook.Sheets
dlr = Cells(Rows.Count, "a").End(xlUp).Row + 1
slr = ws.Cells(Rows.Count, "a").End(xlUp).Row
If ws.Name < "Summary" Then
ws.Rows("1:" & slr).Copy Cells(dlr, 1)
End If
Next ws
End Su

"Rahul" wrote:


Dear Team,

I am having 20 worksheets which contains my daily reports.
I need to all these worksheets into one singlw worksheet. Means append one
by one.
If there is any function or Macro. I am having Excel 2003/2007.
Kindly help me.

Reagdrs,

Rahul.