Giúp sửa lệnh VBA

[kiendaide1]

Em có 1 sheet có nhiều dư liệu em muôn tách 100 dòng từ sheet ban đâu ra thành nhiêu sheet khác nhau (dư nguyên tiêu đề mang qua các sheet khác. em viết lệnh VBA nhưng chay lỗi. phiền các bác sửa hộ em với ạ. Đoan code em có đính kèm ạ

 

[TongDe]

Tách cách khác (theo kiểu ADO...)

 

[kiendaide1]

Chạy được ròi em cam ơn các bác ạ

 

[Maika8008]

Chạy được ròi em cam ơn các bác ạ

Hy vọng là 2 năm sau không hỏi lại nữa.

 

[Hoàng Tuấn 868]

Chạy được ròi em cam ơn các bác ạ

Không biết chạy được theo cách của bác nào nữa, may ra hai năm sau lại nhờ sửa mới biết được.