Quote Originally Posted by Abdul Rahman View Post
do I have to add some code Set ws = Sheet4 Call MoveData
Yes you can simply add more lines to that section. Just make sure the sheet number matches the codename of each one.
If your workbook was set up with all the class sheets at the start and no hidden sheets in between, the code could be adapted to loop through those rather than need to specify them in code. I was going to do that in the example file, but noticed some hidden sheets.
You could also loop through the sheets and only process any where the tab name starts in "Year" for example. That way you wouldn't have to add anything to the code and it wouldn't matter which order the sheets were in.
As I said, I was working from pure guesses as not much info provided.

Quote Originally Posted by Abdul Rahman View Post
and for the result, can the number run normally from 1 onwards
I'm not sure what you mean by this. Could you elaborate?

BSB