MERGE ALL SHEET DATA IN SAME WORKBOOK ( SINGLE SHEET )

 MERGE ALL SHEET DATA IN SAME WORKBOOK ( SINGLE SHEET )

' Code :  

Sub MERGESHEET()

Application.ScreenUpdating = False

Application.DisplayAlerts = False

Dim sht As Worksheet

For Each sht In ThisWorkbook.Sheets

If sht.Name <> "Sheet1" Then

sht.Select

Range("A3:J" & Range("J65536").End(xlUp).Range("A1").Row).Select

Selection.Copy

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

Sheets("sheet1").Select

Range("A50000").End(xlUp).Offset(1, 0).Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

End If

Next

Application.CutCopyMode = False

Application.ScreenUpdating = True

Application.DisplayAlerts = True

End Sub

'  End of Code .......