Try:
Sub CopyDataAndSave()
    Application.ScreenUpdating = False
    Dim desWB As Workbook, desWS As Worksheet, srcWS1 As Worksheet, srcWS2 As Worksheet
    Set srcWS1 = ThisWorkbook.Sheets("Detailed Outputs")
    Set srcWS2 = ThisWorkbook.Sheets("User Inputs")
    Set desWB = Workbooks.Open(Environ("userprofile") & "\Desktop\Upwork\Model_Template.xlsx")
    Set desWS = Sheets("Input")
    With srcWS1
        .Range("B8:M8").Copy
        desWS.Range("Q4").PasteSpecial xlPasteValues
        .Range("B45:M45 ").Copy
        desWS.Range("Q8").PasteSpecial xlPasteValues
        Application.CutCopyMode = False
    End With
    ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & Application.PathSeparator & srcWS2.Range("C14").Value & ".xlsx", FileFormat:=51
    Application.ScreenUpdating = True
End Sub