Code chạy chậm nhờ mọi người sửa cho chạy nhanh hơn (1 người xem)

[iloveit]

Tôi có miêu tả chi tiết trong File đính kèm. Nhờ các anh chị và các bạn xem giúp.

Code như sau:

Sub suaphieu()
Application.ScreenUpdating = False
Call xoaphieu
With Sheet7.[A9:H100]
.copy
Sheet4.Range("A650000").End(xlUp).Offset(1).PasteS pecial Paste:=xlPasteValues
Application.CutCopyMode = False
Call Sort_hd
MsgBox "Sua phieu thanh cong"
End With
Application.ScreenUpdating = True
End Sub