Если у кого похожая ситуация, вот такой вариант подойдет.
[vba]Код
Private Sub Workbook_Open()
Dim sh As Worksheet
Dim D As String
D = Format(Date, "DD.MM")
For Each sh In Worksheets
If sh.Name = D Then Exit Sub
Next
MsgBox "Сейчас будет добавлен новый лист """ & D & """", vbInformation ' вывод сообщения можно закомментировать
Sheets(Format(Date - 1, "DD.MM")).Copy After:=Sheets(Format(Date - 1, "DD.MM"))
Set sh = Sheets(Sheets(Format(Date - 1, "DD.MM")).Index + 1)
With sh
.Name = D
.Range("T5:V18").Value = .Range("AC5:AE18").Value
.Range("W5:AB18").Value = 0
End With
End Sub
[/vba]