ub Копировать_лист()
    Dim shSource As Worksheet
    Set shSource = ActiveSheet
    If Not IsDate(shSource.Name) Then Exit Sub
    
    Dim wb As Workbook
    Set wb = shSource.Parent
    Dim shTarget As Worksheet, targetName As String
    targetName = Format(CDate(shSource.Name) + 1, "DD.MM.YYYY")
    
    On Error Resume Next
    Set shTarget = wb.Sheets(targetName)
    On Error GoTo 0
    If Not shTarget Is Nothing Then
        MsgBox "Лист уже есть." & vbCr & targetName, vbExclamation
        Exit Sub
    End If
    
    shSource.Copy After:=shSource
    Set shTarget = ActiveSheet
    shTarget.Name = targetName
    
    Dim sFormula As String
    sFormula = "='" & shSource.Name & "'!J27+I27"
    shTarget.Range("J27").Formula = sFormula
End Sub

shTarget.Range("J27").Formula = sFormula
shTarget.Range("J28").Formula = "=A1+1"
shTarget.Range("J29").Formula = "=A2*B3"