Может не так понял задачу - берем последний лист, копируем, ставим в названии сегодняшнюю дату и в ячейку G2, в D2 ставим число из предыдущего дня + 1.
[vba]Код
Sub КопияЛиста()
'Перемещение листа
'Копирование и перемещение
Dim kolvo As Variant
Dim i As Long
Dim list As Worksheet
StrData = CStr(Format(Now(), "dd/mm/yyyy"))
'Переименование
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
'номер отчета
Sheets(Sheets.Count).Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = StrData
Range("G2").Select
ActiveCell = StrData
ActiveSheet.[d2] = ActiveSheet.[d2] + 1
End Sub
[/vba]