Khắc phục Code bị báo cần Update Số liệu

[hoahuongduong1986]

Dear Anh chị,
Em có đoạn Code sau nhưng khi bấm chạy Code luôn bị hiện ra thống báo Update value Sheet2 (Là sheet Sao ke TD). Chả là Sheet Sao ke TD nó có nhiều trường dài quá không cần thiết nên khi xử lý em đã lệnh xóa toàn bộ EC1:GD20000 của nó và bắt đầu tạo công thức từ cột EC. Làm sao để bỏ cái thống báo và update Sao ke TD ạ. Em cảm ơn.

Sub Baocao()

ActiveWorkbook.RefreshAll
Sheet2.Select
Sheet2.Range("EC1:GD20000").ClearContents
With Sheet2.Range("EC2:EC20000")
.FormulaR1C1 = "=IFERROR(IF(RC8=""VND"",RC32,IF(RC8=""USD"",RC32*'Bao cao'!R4C3,'Sao ke'!RC32*'Bao cao'!R5C3))/1000000,"""")"
.Value = .Value

Sheet2.Range("EC1").Formula = "Du no quy doi"

End With
Sheet1.Select
End Sub