Put this macro into Book2 and save it. Book1 and Book2 should reside in the same directory.
Option Explicit

Sub ImportData()
' JBeaucaire  8/19/2009
Dim ws As Worksheet, wsNw As Worksheet
Dim wb1 As Workbook, wb2 As Workbook
Dim LR As Long

Set wb2 = ThisWorkbook
Sheets.Add
Set wb1 = Workbooks.Open("Murphy-Book1.xls")
Cells.Copy
wb2.Activate
ActiveSheet.Paste
Rows("1:1").Insert Shift:=xlDown

wb1.Close False

Range("D1") = "Data"
Range("D1").AutoFilter
LR = Range("A" & Rows.Count).End(xlUp).Row
Set wsNw = ActiveSheet
    For Each ws In Worksheets
        If ws.Name <> wsNw.Name Then
            ws.UsedRange.Clear
            wsNw.Range("A1").AutoFilter field:=4, Criteria1:=ws.Name
            If Range("A" & Rows.Count).End(xlUp).Row > 1 Then _
                wsNw.Range("A2:H" & LR).Copy ws.Range("A1")
        End If
    Next ws
    
Application.DisplayAlerts = False
wsNw.Delete
Application.DisplayAlerts = True
End Sub