哪们大侠看看我这个VBA运行速度超慢的原因在哪,该怎么优化?

我是电脑小白，下面公式也是百度复制的，运行单个还可以，批量运行就非常卡甚至会崩溃。Private Sub 自动运行5_Click()Dim NUM As StringDim NUM1 As StringDim NUM2 As StringNUM = "C"填充2 NUMThisWorkbook.Save填充7 NUMthisWorkbook.SaveNUM1 = "FQ"NUM2 = "FR"NUM= 双填充7(NUM1, NUM2)thisWorkbook.SaveEnd SubFunction 填充2(NUM As String)Dim a As StringDim b As String关闭自动计算Application.Calculation = xlManual Application.ScreenUpdating = False 关闭刷屏复制C2粘贴到C9a = NUM & "2" Range(a).Select Selection.Copyb = NUM & "9" Range(b).Select ActiveSheet.Paste按c9格式填充到c100000 Range(b).Selectb = NUM & "9:" & NUM & "100000"Selection.AutoFill Destination:=Range(b)手动计算Calculate公式改为数值Range(b).SelectSelection.CopySelection.PasteSpecial Paste:=xlPasteValues, Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False设置自动计算Application.Calculation = xlAutomaticApplication.ScreenUpdating = True 打开刷屏Application.CutCopyMode = False 清理缓存End FunctionFunction 填充7(NUM As String)Dim a As StringDim b As String关闭自动计算Application.Calculation = xlManual Application.ScreenUpdating = False 关闭刷屏复制C2粘贴到C9a = NUM & "7" Range(a).Select Selection.Copyb = NUM & "9" Range(b).Select ActiveSheet.Paste按c9格式填充到c100000 Range(b).Selectb = NUM & "9:" & NUM & "100000"Selection.AutoFill Destination:=Range(b)手动计算Calculate公式改为数值Range(b).SelectSelection.CopySelection.PasteSpecial Paste:=xlPasteValues, Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False设置自动计算Application.Calculation = xlAutomaticApplication.ScreenUpdating = True 打开刷屏End FunctionFunction 双填充7(NUM1, NUM2)Dim a As StringDim b As String关闭自动计算Application.Calculation = xlManual Application.ScreenUpdating = False 关闭刷屏复制C2粘贴到C9a = NUM1 & "7:" & NUM2 & "7" Range(a).Select Selection.Copy b = NUM1 & "9:" & NUM2 & "9" Range(b).Select ActiveSheet.Paste按c9格式填充到c100000 Range(b).Selectb = NUM1 & "9:" & NUM2 & "100000"Selection.AutoFill Destination:=Range(b)手动计算Calculate公式改为数值Range(b).SelectSelection.CopySelection.PasteSpecial Paste:=xlPasteValues, Operati