Excel VBA is pasting formulas and not values

How about

With srcWS
   desWS.Range("Q4:AB4").Value = .Range("B8:M8").Value
   desWS.Range("Q8:AB8").Value = .Range("B45:M45").Value
   Application.ScreenUpdating = True
End With