Merge multiple Sheets into one

[Lasantha]

Dear All,

Is there any method to merge multiple sheets into one sheet. in my worksheet I have more than 50 individual sheet. I need to combine them all.

thank you
Lasantha.

 

[pecoflyer]

Try http://www.rondebruin.nl/win/section3.htm
or
http://www.rondebruin.nl/win/addins/rdbmerge.htm

 

[Logit]

Private Sub CommandButton1_Click()

Dim WS1, WScur As Worksheet

Set WS1 = Sheets("YTD16")
For i = 2 To ActiveWorkbook.Worksheets.Count
        lrow1 = WS1.Cells(Rows.Count, 2).End(xlUp).Row + 1
        Set WScur = Sheets(i)
        lrow = WScur.Cells(Rows.Count, 1).End(xlUp).Row
        WScur.Range("a8:j" & lrow).Copy WS1.Range("b" & lrow1)
   
Next i

End Sub

You will need to edit sheet names, etc.

 

[Abrienne]

Is there any other way other then code

 

[Deepak]

Will you pls share a sample file and expected output so that we may suggest a alternate method if available...

 

[pecoflyer]

Is there any other way other then code

Why not use the add-in which I provided the link for? No code needed