add worksheet

Something like

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

You would need to check if the name exists to prevent an error