Code to move active sheet tab all the way to the end (right)?

I searched and found a couple of different active.sheet codes but could not get it to work. What I want to do is move the worksheet tab I create in the code below all the way to the end (right) of the worksheet tabs already in my workbook.

Sub Workbook_Open()
   Dim WS As Worksheet
   Set WS = Sheets.Add
      WS.Name = Format(Date, "mm-dd-yy")
End Sub

Much thanks,

Nick

   Dim wks As Worksheet
   
   Set wks = Worksheets.Add(After:=Sheets(Sheets.Count))
   wks.Name = Format(Date, "mm-dd-yy")