Mensplit atau memecah suatu range menjadi workbook/worksheet terpisah

Seorang teman meminta saya untuk mensplit/memecah suatu worksheet yang dia miliki menjadi worksheet/workbooks yang terpisah per- 100 record kalo menggunakan cara manual akan lumayan repot

Daripada saya membuat script yang ternyata nggak mudah (udah saya coba), rupanya saya punya script lain yang kegunaannya mirip cuma perlu sedikit kreatifitas

Yaitu menu Data Analysis - Extract data by category, script ini ada di e-Audit Utilities yang fungsinya berguna mensplit suatu GL berdasarkan Nama Account atau Voucher Number misalnya

Caranya/ Step by Stepnya : 

1. Dikasus ini cukup kita tambahkan category yang diinginkan. Kita buat satu kolom baru dipaling kanan , kita isi aja nama Kategory, trus kita isi rumus sederhana yang membuat tiap baris 1-100 jadi berisi "List - 001", baris 101-200 menjadi "List - 002", dst
2. Rumusnya kita taruh di kolom F
3. Kita ketik dicell F2
5. ="List - " & RIGHT("000" &INT((ROW(E2)-1)/100+1),4)
7. Soal rumus harap belajar sendiri ya....becanda
8. Row(E2) akan menghasilkan nilai baris dicell E2 yaitu 2
9. Karena data dimulai dibaris kedua perlu kita kurangi satu, agar perhitungan dimulai dari angka 1
10. Kita bagi seratus jika hasilnya dibawah seratus maka akan menghasilkan 0,01...0.99 kita gunakan Int agar pecahan hilang, lalu ditambah 1
11. Untuk menghasilkan Text "0001" bukan "1" kita gunakan fungsi Right("000" & 1,4)
12. Tambahkan kata "List - " didepan "0001"
13. Bisa diganti "Daftar ke - " atau kata lain terserah anda
15. Lalu kita Copy sampai data terakhir
16. Setelah itu INI YANG PENTING,  COPAS SECARA VALUE
18. 
20. Ini hasilnya
21. 
23. Jika udah oke maka kita jalankan e-Audit Utilities - Data Analysis - Extract Data By Category
24. Pilih Field kategori
25. 
27. Klik Split by Category
28. Tunggu sampai selesai (Well Done)
29. ini hasilnya
30. 
32. Jika ingin memindahkan tiap sheet menjadi workbook tersendiri kita gunakan fungsi lain e-Audit yaitu Worksheet Split
33. 
35. Pilih yang mau displit
36. 
38. klik split lalu pilih nama folder tujuan
39. 
41. Ini hasilnya
42. 
44. Selesai

Ini ada sedikit masalah, karena ada header maka halaman1 hanya akan berisi 99 record sedangkan halaman lain akan 100 record, solusi gampang :

1. Copas semua Kolom F
2. Copy cell F2
3. Klik Kanan Klik Insert Copied Cells
4. Pilih Shift Cell Down
5. 
6. sekarang halaman 1/List 1 akan berisi 100 record