You didn't follow my directions to change only the points noted.
As stated in the code below, you only need to change those items marked (the destination file name, the range of data on the source wb sheet.)
Other things didn't need to be changed. Assuming that your destination file is called "Master.xls" and the sheet name you want the data pasted TO is called "MasterData" and assuming the SOURCE data in the other workbooks is in a sheet called "Data"
VBA:
Sub CombinefilesCopyDataSheet()
Dim Wkb1 As Workbook, wb As Workbook
Dim ws1 As Worksheet, WsA As Worksheet
Set Wkb1 = Workbooks("Master.xls") 'change this to your desintation file name
Set ws1 = Wkb1.Sheets("MasterData") '1st sheet in destination
For Each wb In Workbooks
If wb.Name <> "PERSONAL.XLS" And wb.Name <> Wkb1.Name Then
wb.Activate
Set WsA = wb.Sheets("Data")
'the below range is for the range of data on Sheets("Data") which goes to DESTINATION.xls
WsA.Range("A1:I200").Copy 'change this to your range
With ws1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
.PasteSpecial (xlValues)
.PasteSpecial (xlFormats)
End With
Application.DisplayAlerts = False
wb.Close 'this closes the file just copied.
End If
Next wb
Wkb1.Activate
End Sub