Want tab copies to count up not down

[jwindholz2725]

I have a code here that will create copies of sheets and name them based off the values in cells A1n. The issue is they count down 18,17,16,etc... How can I adjust the code so they count up. 16,17,18,etc...? In other words the first copy created goes on the end not the beginning of the copied tabs. I would like the tabs in the order going down from A1n

Please help!!

Sub MakeTemplates()
Dim rMyCell As Range
For Each rMyCell In Sheets("WBS").Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)
If Len(rMyCell.Value) Then
Sheets("Template").Copy After:=Sheets(1)
Sheets("Template (2)").Name = rMyCell.Value
End If
Next
End Sub

 

[doofusboy]

Maybe something like this?

Sub MakeTemplates()
Dim rMyCell As Range
For Each rMyCell In Sheets("WBS").Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)
If Len(rMyCell.Value) Then
Sheets("Template").Copy After:=[B][COLOR=red]Sheets(rMyCell.Row)
[/COLOR][/B]Sheets("Template (2)").Name = rMyCell.Value
End If
Next
End Sub

 

[jwindholz2725]

That worked great! Thank You!!