mọi người giúp đõ tách 1 sheet thành nhiều sheet

[h123ngoisao]

Bạn nào có thể viết cho mình macro tách sheet được không?
Cụ thể thế này:
mình có file địa chỉ email dạng thế này (file) :


wangdongbo@963.net
wangdongyu@963.net
wangdr@963.net
wangduming@963.net
wangdunan@963.net


mình muốn chia nhỏ thành từng sheet khoảng có 1k hoăc 1,5k hoặc tương tự như thế.
mỗi sheet được tách ra sẽ được tách thành từng file khác nhau
Có thể hướng dẫn mình sửa code để thay đổi số dòng được tách ra không?
nếu có thể thì có thể save thành từng file txt không vậy?
Cám ơn