This may not be the exact code to run. But how about changing the order of operation to be more like the below?
- add code to save the activeworkbook here first
Set wbNew = ActiveWorkbook
wbNew.SaveAs "C:\Users\dholmoe\desktop"
Worksheets("Input").Copy
With ActiveSheet.UsedRange
.Value = .Value
End With
wbNew.Close True