Excel VBA is pasting formulas and not values

This is probably a simple fix but I can't seem to crack it...the code below is pasting formulas rather than values. The copy/paste is near the bottom in the "desWS.Range" statements.

Sub Calculate()

'Dim t1 As Double, t2 As Double
't1 = Timer
'    Application.ScreenUpdating = False
    Application.Calculate
'    Application.ScreenUpdating = True
'
't2 = Timer
'msg = MsgBox("Done; " & Round(t2 - t1, 0) & " seconds elapsed.", vbOKOnly, "Goal Seek Complete")
msg = MsgBox("Calculation complete. See Outputs tabs and Project Model for results.")

Dim desWB As Workbook, desWS As Worksheet, srcWS As Worksheet
    Set srcWS = ThisWorkbook.Sheets("Detailed Outputs")
    Set desWB = Workbooks.Open(Environ("userprofile") & "\Desktop\Model_Template.xlsx")
    Set desWS = Sheets("Input")
    With srcWS
        .Range("B8:M8").Copy desWS.Range("Q4")
        .Range("B45:M45 ").Copy desWS.Range("Q8")
        Application.ScreenUpdating = True


End With
End Sub