Clear sheet & move to the end of workbook with different name

Hi,

Here's one method

Sub MoverToEnd()
    Dim stMonth1 As String, stMonth2 As String
    stMonth1 = Format(WorksheetFunction.EDate(Date, -1), "mmm") & " '" & Format(Date, "yy")
    stMonth2 = Format(WorksheetFunction.EDate(Date, 11), "mmm") & " '" & Format(WorksheetFunction.EDate(Date, 11), "yy")
    If Sheets(2).Name = stMonth1 Then
        Sheets(stMonth1).Move after:=Sheets(Sheets.Count - 1)
        Sheets(stMonth1).Range("B4:AF13,B16:AF23").ClearContents
        Sheets(stMonth1).Name = stMonth2 

    End If

End Sub

Note that there's a hidden sheet14 (December 2015) hence the "-1" in the Sheets.Count bit of code. If you remove the sheet then remove the "-1" as well.