Copy a range, and then paste back the values only.

This will work with ActiveSheet

Sub MakeValues()
    With Range("A2:E84")
        .Value = .Value
    End With
End Sub