how to transfer the data and assign the page number in the sheet?

[heihei]

Here is my sample.
For examples, it appears 29 items when I search 1/7/2013-31/7/2013, (in "By Period")
I want to keep item no.1~15 in "Template2"
and for the remaining one,
I want to allocate them to the new sheets (the same format of "Template2")
If there are only 14 items, I want to keep all in "Template2".
So how should I write the VBA code to do this?

Also, I wanna assign the page number (e.g."Page number: 1 of 2") in Range("J3") for "Template2" and the new sheets. How can I do that if there are more than 1 page?
If there are 3 pages, I wanna assign the page number (e.g. "Page number:1 of 3"),etc.

Thanks a lot !!

[heihei]

Any helping hand ><?

[millz]

Hi heihei, I've recoded your Button1. Try this:

Please Login or Register  to view this content.

Sorry I need to make indentations to code, if not I would go totally blind looking at them