Hello All,

The macro below putts and stacks all worksheets together in a new sheet
called "MergeSheet" and works fine, But my problem is I don't want to add all
sheets I just want to stack Sheet1, Sheet2 and Sheet3 together in
"MergeSheet". Where do I have to make corrections?

Thank you.

Sub Test2()
   Dim sh As Worksheet
   Dim DestSh As Worksheet
   Dim Last As Long
   Dim shLast As Long

   With Application
       .ScreenUpdating = False
       .EnableEvents = False
   End With

   'Delete the sheet "MergeSheet" if it exist
   Application.DisplayAlerts = False
   On Error Resume Next
   ThisWorkbook.Worksheets("MergeSheet").Delete
   On Error GoTo 0
   Application.DisplayAlerts = True

   'Add a worksheet with the name "MergeSheet"
   Set DestSh = ThisWorkbook.Worksheets.Add
   DestSh.Name = "MergeSheet"

   'loop through all worksheets and copy the data to the DestSh
   For Each sh In ThisWorkbook.Worksheets
       If sh.Name <> DestSh.Name Then
           Last = LastRow(DestSh)
           shLast = LastRow(sh)

           'This example copies everything, if you only want to copy
           'values/formats look at the example below the first example
           sh.Range(sh.Rows(2), sh.Rows(shLast)).Copy DestSh.Cells(Last + 1,
"A")

       End If
   Next

   Application.Goto DestSh.Cells(1)

   With Application
       .ScreenUpdating = True
       .EnableEvents = True
   End With
End Sub

Function LastRow(sh As Worksheet)
   On Error Resume Next
   LastRow = sh.Cells.Find(What:="*", _
                           After:=sh.Range("A1"), _
                           Lookat:=xlPart, _
                           LookIn:=xlFormulas, _
                           SearchOrder:=xlByRows, _
                           SearchDirection:=xlPrevious, _
                           MatchCase:=False).Row
   On Error GoTo 0
End Function