Giúp tôi chỉnh sửa lại đoạn code Tự động cập nhật

[khicon8683]

Đây là đoạn code bạn nghiaphuc đã viết giúp tôi, đoạn code này tôi đã thử và đạt kết quả như mong muốn.

Sub CapNhat()
Sheets("Sheet1").Cells.SpecialCells(8).Copy Sheets("Sheet2").[A65536].End(3).Offset(1)
End Sub

Tại sheet1: ô a1=abc
ô a2=bdf
sau khi ấn nút Cập nhật
Tại sheetTonghop: ô a1=abc
ô a2=bdf
Vấn đề là khi tôi thêm 1 sheet2: ô a1=123
ô a2=456
sau khi ấn nút Cập nhật
Tại sheetTonghop: ô a1=123
ô a2=456
Dữ liệu tại sheet1 đã bị dữ liệu tại sheet2 chèn lên
Rất mong được cả nhà chỉnh sửa giúp. Tôi xin cảm ơn trước nhé

 

[tintam7251]

Đoạn code trên chỉ rõ nguồn là sheet tên là sheet1, đích tên là sheet2. Nên dữ liệu sẽ không copy vào sheetTonghop như bạn mô tả. Mình nghĩ cách tốt nhất là bạn gởi file lên để được trợ giúp.