Copy/Paste using VBA into a new workbook

Hey all

I am trying to do a copy paste using vba but i keep getting a runtime error
It copies the first part and pastes it at B50 but after copying the sheet to a new workbook.. it fails.. I cant seem to figure out whyy??@@

Any help is greatly appreciated. Thanks

    Range("B17:M17").Select
    Selection.Copy
    Range("B50").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
       
    
    ActiveSheet.Copy

    Range("B50:M50").Select
    Selection.Copy
    Range("B17").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    
    ActiveWorkbook.SaveAs Filename:="Change-TEMP.xls"