求删除宏代码的代码

Sub 取消()
Application.ScreenUpdating = False
Sheets("记账").Select
ActiveSheet.Unprotect ("196008zxc") '
Range("AH2,AN5:AN6").Value = ""
Range("BD83:BD94").Select
Selection.Copy
Range("BC83").Select
ActiveSheet.Paste
Range("AD1:AZ100").Select
Selection.Copy
Range("C1").Select
ActiveSheet.Paste
Range("C1").Select
Selection.ClearContents
Call 恢复当月
Range("N23").Select
ActiveSheet.Protect ("196008zxc") '
End Sub
求删除 "Call 恢复当月"与"Range("N23").Select"二句的宏代码