Sub NewMonth()
Dim myWorksheet As Worksheet
Worksheets(1).Copy After:=Worksheets(1)
Set myWorksheet = Worksheets(2)
myWorksheet.Name = Format(DateSerial(2000, 8, 1), "mmm yyyy")
On Error Resume Next
myWorksheet.Cells.SpecialCells(xlCellTypeConstants, 1).ClearContents
End Sub