Macro to display current date on tab

Yes, not much to change:

Option Explicit

Sub CopySheet()

Dim cWS As Worksheet
Dim nWS As Worksheet

Application.ScreenUpdating = False

Set cWS = ActiveSheet
cWS.Copy After:=Sheets(Sheets.Count)
Set nWS = ActiveSheet
nWS.Name = Format(Date, "mm-dd")

cWS.Select
With Cells
    .Copy
    .PasteSpecial _
        Paste:=xlPasteValues, _
        Operation:=xlNone, _
        SkipBlanks:=False, _
        Transpose:=False
End With
Application.CutCopyMode = False

nWS.Select
Range("D10").FormulaR1C1 = Format(Date, "dd/mm/yyyy")

Application.ScreenUpdating = True

End Sub

Regards