adding new worksheets to the bottom of an existing one

Hi, I've a existing worksheet and wish to update by adding the daily worksheets coming in to the bottom of the existing worksheet. What's the function to do this?

 Sub addSht()
Worksheets.Add after:=(Worksheets.Count)
ActiveSheet.Name = Format(Date - 31, "MMM")
End Sub

Does this works? =)
Thanks

Is this what you're trying to do??

 Sub addSht()
Set NewSheet = Worksheets.Add
NewSheet.Name = Date$
End Sub