Tổng hợp dữ liệu từ các sheet

[duong22000]

Em có đoạn code sau:

Private Sub Worksheet_Activate()
 Dim i As Byte
    Application.ScreenUpdating = False
    Me.Move after:=Sheets(38)
    [e4:i3152].Delete
    For i = 9 To 38
        Sheets(i).[e4:i1325].copy [e65536].End(xlUp).Offset(1)
    Next
    Application.ScreenUpdating = True
      
End Sub

Khi chọn Sheet tổng hợp dữ liệu với code trên để lấy dữ liệu từ sheet 9 to 38
Thì cho kết quả là dữ liệu tại file tổng hợp được lặp 2 lần giữ liệu giống nhau.
Em mong các bác kiểm tra code trên và sửa cho em để file tổng hợp chỉ lấy 1 lần các dữ liệu ở các sheet vào file tổng hợp.
Em xin chân thành cảm ơn !