Sub Newday()
'
' Newday Macro
'
Dim ADate As Date, NDate As Date
ADate = CDate(Year(Date) & "/" & Mid(ActiveSheet.Name, 4, 2) & "/" & Left(ActiveSheet.Name, 2))
NDate = ADate + 1
ActiveSheet.Copy Before:=Sheets(1)
ActiveSheet.Name = Format(NDate, "dd") & "-" & Format(NDate, "mm")
Sheets(Format(ADate, "dd") & "-" & Format(ADate, "mm")).Range("O1").Value = Range("O1").Value
End Sub