Excel VisualBasic Script

Sub SimpleWorksheetMovement() 
    ThisWorkbook.Worksheets(2).Move after:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count) 
End Sub