Arranging Excel sheets

[divyaquamara]

I am extracting data from a summary report and placing in more than 500 tempelates.
I was using the command:
Sheets("Report").Copy after:=Sheets(Sheets.Count)
which gave run time error: Copy method of worksheet class failed.
So I used Microsofts work around with this problem and now using command
Sheets.Add Type:="H:\Personal\Report.xlt"
The above generates the reports but places them in desending order but I dont want it like that. It should place reports in order (1 2 3 4 5 ....) and not ( 5 4 3 2 1)(as it does now.
How to solve this problem.
Thanks in advance.

 

[Warship]

Not sure if Sorting sheets will do it.
If so look at: http://www.cpearson.com/excel/sortws.aspx

 

[divyaquamara]

Is there something like before or after I can add here?
I tried it but does not work. May be cos I did not append it at the right place.
Please help

 

[Warship]

Try: (UnTested)

Sheets.Add before:=Sheets(Sheets.Count), Type:="H:\Personal\Report.xlt"