Xin giúp đỡ về Macro

[eiatech]

Vì không biết là lỗi gì nên post ở mục này

Mình có 2 file excel 1.xls và 2.xls để xuất dữ liệu qua lại. 2 file này từ 2002 đến nay chạy rất ok.

Nhưng giờ khi mình nhấn refesh button thì nó không xuất ra đủ. Không thấy báo lỗi gì hết, dữ liệu xuất ra thì stop ở row thứ 9999.

Mình thử save as sang định dạng xlsx nhưng vẫn như cũ.

Nội dung macro như sau :

Sub Refresh2011()
'
' Refresh2011 Macro
'

'
Windows("1.xls").Activate
Range("A4:A2000").Select
Selection.Copy
Windows("2.xls").Activate
Sheets("Data").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=0
Windows("1.xls").Activate
Range("B4:AH2000").Select
Range("B2000").Activate
Application.CutCopyMode = False
Selection.Copy
Windows("2.xls").Activate
Range("F9905").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=0
Range("A9905").Select
Windows("1.xls").Activate
ActiveWindow.ScrollColumn = 29
ActiveWindow.ScrollColumn = 26
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 1
Range("A4").Select
ActiveWindow.SmallScroll Down:=-15
Range("A2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("A4").Select
Windows("2.xls").Activate
Sheets("Table").Select
Range("G13").Select
ActiveSheet.PivotTables("PivotTable89").PivotCache.Refresh
Range("N4").Select
End Sub


Xin các bạn giúp đỡ