宏运行慢，求高手提速，多谢！

在2003中录了个宏，代码其实不多，运行时却要4秒钟，硬件绝对没问题，换几台电脑试了还是慢，求帮提速，代码如下：
Sub 完工转后台()
*
* 完工转后台 Macro
* 宏由 雨林木风 录制，时间: 2014-10-12
*
* Application.Calculation = xlManual *关闭自动重算
Sheets("完工成品表").Select
ActiveSheet.Unprotect
ActiveSheet.Rows(4).Insert *从第四行插入一行
ActiveSheet.Range("A1:E1").Copy *拷贝指定区域
Range("A4").Select
Selection.PasteSpecial Paste:=xlPasteValues *选择性粘贴-数值-无
Sheets("完工量").Select
Range("B3:C3").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("C3").Select
Sheets("完工成品表").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
Sheets("完工量").Select
Application.Calculation = xlAutomatic *开启自动重算
End Sub