I believe this is going to work out fantastically... As for the fact that it needs to be rebuilt, I get it, and if I could with my current capabilities, I'd already have done so. I will absolutely come back Monday to confirm if everything worked as intended 
Thank you very much Carim, you assistance has be invaluable! I believe I placed the new code where you suggested, here's the monster currently.
Code
Sub WorksheetFormulas()
'
' WorksheetFormulas Macro
'
' Keyboard Shortcut: Ctrl+j
'
Dim inb As Integer
inb = 1
Selection.AutoFilter
Windows("SPH Shifts Scheduled Formulas.xlsx").Activate
Range("A16:H17").Select
Selection.Copy
If WeekdayName(Weekday(Date)) = "Monday" Then inb = InputBox("Select 1, 2, 3:", "Nb of Days to Deduct")
Windows(Evaluate("=""Shifts Scheduled ""&TEXT(" & CLng(Date - inb) & ",""mm-dd-yyyy"")&"" - Final.xlsx""")).Activate
Range("R1").Select
ActiveSheet.Paste
Range("R2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-17],'[SPH Shifts Scheduled Formulas.xlsx]Agents'!R1C1:R150C2,2,FALSE)"
Range("S2").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(RC[-1],'SPH Data'!R1C1:R200C8,8,FALSE)),"""",VLOOKUP(RC[-1],'SPH Data'!R1C1:R200C8,8,FALSE))"
Range("T2").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(RC[-2],'SPH Data'!R2C1:R200C8,4,FALSE)),"""",VLOOKUP(RC[-2],'SPH Data'!R2C1:R200C8,4,FALSE))"
Range("U2").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(RC[-3],'SPH Data'!R2C1:R200C8,5,FALSE)),"""",VLOOKUP(RC[-3],'SPH Data'!R2C1:R200C8,5,FALSE))"
Range("V2").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(RC[-4],'SPH Data'!R2C1:R200C8,6,FALSE)),"""",VLOOKUP(RC[-4],'SPH Data'!R2C1:R200C8,6,FALSE))"
Range("W2").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(RC[-5],'SPH Data'!R2C1:R200C8,7,FALSE)),"""",VLOOKUP(RC[-5],'SPH Data'!R2C1:R200C8,7,FALSE))"
Range("X2").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR((RC[-4]*0.5)+(RC[-3]*0.25)+(RC[-2]*2)+(RC[-1]*0.5)),"""",(RC[-4]*0.5)+(RC[-3]*0.25)+(RC[-2]*2)+(RC[-1]*0.5))"
Range("Y2").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(RC[-1]/RC[-13]),"""",ROUND(RC[-1]/RC[-13],2))"
Range("R2:Y2").Select
Selection.AutoFill Destination:=Range("R2:Y65")
Range("R2:Y65").Select
Range("P1").Select
Selection.AutoFilter
Range("A1").Select
End Sub