Mensaje: guardar la información en una hoja nueva

Cuando en B5 ponga 1 de cada mes y B9 el mes y si coinciden mandar mensaje guardar y limpiar la información del mes anterior y pegarla en otra hoja del mismo libro y que no me deje capturar mas información hasta limpiar la hoja. Espero darme a entender.

Este es el código que tengo dentro del calendario.

Private Sub Calendario_CloseUp()
[b5] = Format(Calendario.Value, "dd")
Dim Fecha, FechaDatos, Respuesta As String
Dim DiaDatos As Range
Dim DiaTarifas As Range
shtMensual.Activate

shtMensual.Select

If UCase(Format(Calendario.Value, "MMMM")) <> shtMensual.[B9] And shtMensual.[b43] = "ok" Then
MsgBox "Error en el Mes", , "Error en Mes"
Else
shtMensual.Select
For Each DiaDatos In shtMensual.[a10:a40]
If DiaDatos = FechaDatos Then
DiaDatos.Select
DiaDatos.Offset(, 1).Activate
If ActiveCell <> "" Then
Respuesta = MsgBox("Ya se han capturado" & vbCrLf & "datos para este dia" & vbCrLf & Fecha & vbCrLf & vbCrLf & "Deseas capturalos de nuevo?", vbYesNo, "Dia Capturado")
If Respuesta = vbNo Then
Calendario.Value = Date

End If
End If
End If

Next
End If

end sub