Tối ưu code vba copy các sheet ra file excel mới (1 người xem)

[nguyenkhoadng]

E có đoạn code copy các sheet ra file excel mới, nhưng khi chạy macro thì lệnh copy không mượt mà nó chuyển qua chuyển lại file cũ.
Nhờ các a giúp e tối ưu đoạn code sao cho khắc phục tình trạng khi copy các sheet sang file excel mới thì nó ko chuyển qua chuyển lại giữa file excel cũ và file excel mới. nghĩa là khi chạy code thì sẽ copy 1 lần 4 sheet sang file mới luôn.
E gửi đoạn code bên dưới và cả file đính kèm để các a tiện giúp.

Sub TaoMoi()
On Error Resume Next
    WbN = ThisWorkbook.Name
    'Tao du toan moi:
        Workbooks(WbN).Sheets("BKL").Visible = True
        Workbooks(WbN).Sheets("BKL").Copy
        Workbooks(WbN).Sheets("Ts").Copy Before:=Sheets("BKL")
        Sheets("Ts").Visible = True
        Workbooks(WbN).Sheets("BTL").Copy Before:=Sheets("BKL")
        Sheets("BTL").Visible = True
        Workbooks(WbN).Sheets("Loc").Copy After:=Sheets("BKL")
        Sheets("Loc").Visible = xlSheetVeryHidden
        
    Application.Dialogs(xlDialogSaveAs).Show "DuToan"
    
    Sheets("BKL").Select
    Range("A2") = "= ""Công trình: "" & Ts!C3"
    Range("A3") = "= ""H" & ChrW(7841) & "ng m" & ChrW(7909) & "c:"" & Ts!C4"
    'Rows("8:13").ClearContents
    Rows("9:13").Delete Shift:=xlUp
    Range("B8").Select
    Workbooks(WbN).Sheets("BKL").Visible = False
    Windows(WbN).Visible = False
    ActiveWorkbook.Save
End Sub

E cảm ơn!