how to merge excel sheets

Sub MergeFiles()

Path = "C:\Users\dpk\Desktop\Files\"

Filename = Dir(Path & "*.xls*")

  Do While Filename <> ""

  Workbooks.Open Filename:=Path & Filename, ReadOnly:=True

     For Each Sheet In ActiveWorkbook.Sheets

     Sheet.Copy After:=ThisWorkbook.Sheets(1)

  Next Sheet

     Workbooks(Filename).Close

     Filename = Dir()

  Loop

End Sub

DOWNLOAD SAMPLE

https://drive.google.com/uc?export=download&id=0Bwz5lFIqnueBbDdhbERGYXVZc1E