This is the code to Import the data that the above code creates

Sub RetrieveMWJCJob()
'
' RetrieveMWJCJob Macro
' Macro recorded 11/15/2006 by David Perkins
'

'
Call ZeroMWJCSheet

Dim MyDirectory As String

'Moves to 2009 Saved Jobs Directory
MyDirectory = ActiveWorkbook.Path & "\" & "2009 Saved Jobs"

ChDir MyDirectory

Do
FName = Application.GetOpenFilename
Loop Until FName < False Or msoButtonSetCancel

If FName < False Then
Set ImportFile = Workbooks.Open(FileName:=FName)
Else: Exit Sub
End If

Application.ScreenUpdating = False

Dim password As String

ThisWorkbook.Activate
Sheet91.Select
Range("CA3").Select
password = Range("CA3").Value

Sheet96.Select
ActiveSheet.Unprotect (password)

ImportFile.Activate
Range("E5").Select
Application.CutCopyMode = False
Selection.Copy
ThisWorkbook.Activate
Range("E5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False

ImportFile.Activate
Range("D6:F9").Select
Application.CutCopyMode = False
Selection.Copy
ThisWorkbook.Activate
Range("D6:F9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False

ImportFile.Activate
Range("B6:B9").Select
Application.CutCopyMode = False
Selection.Copy
ThisWorkbook.Activate
Range("B6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False

ImportFile.Activate
Range("H6").Select
Application.CutCopyMode = False
Selection.Copy
ThisWorkbook.Activate
Range("H6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False

ImportFile.Activate
Range("B13:B16").Select
Application.CutCopyMode = False
Selection.Copy
ThisWorkbook.Activate
Range("B13").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False

ImportFile.Activate
Range("H13").Select
Application.CutCopyMode = False
Selection.Copy
ThisWorkbook.Activate
Range("H13").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False

ImportFile.Activate
Range("B20:B23").Select
Application.CutCopyMode = False
Selection.Copy
ThisWorkbook.Activate
Range("B20").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False

ImportFile.Activate
Range("H20").Select
Application.CutCopyMode = False
Selection.Copy
ThisWorkbook.Activate
Range("H20").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 11

ImportFile.Activate
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 17
Range("B28:B31").Select
Application.CutCopyMode = False
Selection.Copy
ThisWorkbook.Activate
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 17
Range("B28").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False

ImportFile.Activate
Range("H28").Select
Application.CutCopyMode = False
Selection.Copy
ThisWorkbook.Activate
Range("H28").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False

ImportFile.Activate
Range("B35:B38").Select
Application.CutCopyMode = False
Selection.Copy
ThisWorkbook.Activate
Range("B35").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False

ImportFile.Activate
Range("H35").Select
Application.CutCopyMode = False
Selection.Copy
ThisWorkbook.Activate
Range("H35").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False

ImportFile.Activate
Range("B42:B45").Select
Application.CutCopyMode = False
Selection.Copy
ThisWorkbook.Activate
Range("B42").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False

ImportFile.Activate
Range("H42").Select
Application.CutCopyMode = False
Selection.Copy
ThisWorkbook.Activate
Range("H42").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False

ImportFile.Activate
ActiveWindow.Close
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1
Range("A1").Select

ActiveSheet.Protect (password)

Kill FName

ChDir CurDir & "\.."

Application.ScreenUpdating = True
End Sub