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