可否協助簡化程式

各高人, 好
小弟錄制了一個程式, 使用沒有問題, 但程式頗長, 而使用時介面閃動, 此錄制程式可有簡化空間, 請高人們協助, 謝謝!!

Sub 更新()
'
' 資料更新巨集
'

'
Windows("abc倉庫資料.xlsm").Activate
Sheets("總公司倉庫").Select
Range("J4").Select
ActiveCell.FormulaR1C1 = _
      "=SUMIFS([提取單.xlsm]提取單!C7,[提取單.xlsm]提取單!C15,RC7,[提取單.xlsm]提取單!C3,RC2)+SUMIFS([提取單.xlsm]提取單!R3C7,[提取單.xlsm]提取單!R3C15,RC[-3],[提取單.xlsm]提取單!R3C3,RC[-8])+SUMIFS([提取單.xlsm]提取單!R3C7,[提取單.xlsm]提取單!R3C15,RC[-3],[提取單.xlsm]提取單!R3C3,RC[-8])"
Range("K4").Select
ActiveCell.FormulaR1C1 = _
      "=SUMIFS([入貨單.xlsm]Sheet1!C8,[入貨單.xlsm]Sheet1!C13,RC7,[入貨單.xlsm]Sheet1!C3,RC2)+SUMIFS([入貨單.xlsm]Sheet1!R3C8,[入貨單.xlsm]Sheet1!R3C13,RC[-4],[入貨單.xlsm]Sheet1!R3C3,RC[-9])"
Range("L4").Select
ActiveCell.FormulaR1C1 = "=RC[-3]-RC[-2]+RC[-1]"
ActiveWorkbook.Save
Range("J4:L4").Select
Selection.AutoFill Destination:=Range("J4:L22"), Type:=xlFillDefault
Range("J4:L22").Select
Range("L22").Select
Sheets("分公司倉庫").Select
Range("J4").Select
ActiveCell.FormulaR1C1 = _
      "=SUMIFS([提取單.xlsm]提取單!C7,[提取單.xlsm]提取單!C15,RC7,[提取單.xlsm]提取單!C3,RC2)+SUMIFS([提取單.xlsm]提取單!R3C7,[提取單.xlsm]提取單!R3C15,RC[-3],[提取單.xlsm]提取單!R3C3,RC[-8])"
Range("K4").Select
ActiveCell.FormulaR1C1 = _
      "=SUMIFS([入貨單.xlsm]Sheet1!C8,[入貨單.xlsm]Sheet1!C13,RC7,[入貨單.xlsm]Sheet1!C3,RC2)+SUMIFS([入貨單.xlsm]Sheet1!R3C8,[入貨單.xlsm]Sheet1!R3C13,RC[-4],[入貨單.xlsm]Sheet1!R3C3,RC[-9])"
Range("L4").Select
ActiveCell.FormulaR1C1 = "=RC[-3]-RC[-2]+RC[-1]"
ActiveWorkbook.Save
Range("J4:L4").Select
Selection.AutoFill Destination:=Range("J4:L22"), Type:=xlFillDefault
Range("J4:L22").Select
Range("L22").Select
   Sheets("總公司倉庫").Select
Range("J4:L22").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
Range("L4").Select
Application.CutCopyMode = False
Sheets("分公司倉庫").Select
Range("J4:L22").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
Range("L4").Select
Application.CutCopyMode = False
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 4
Windows("提取單.xlsm").Activate
Range("A2").Select
End Sub