>>261
よくわからんけどこれだけの話？
手直しするより最初から書いたほうが早いわ

Sub a()
'このブックの名前を保存しておく
old_file = ThisWorkbook.Path & "\" & ThisWorkbook.Name
'このブックを別の場所に 保存
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & "newname.xlsm"
'fso作成、削除
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.deletefile old_file
End Sub