Sub Создание_листа_2()
Dim a As String
a = Date
Sheets.Add.Name = Date
'-----------------------------
Range("A1").Select
ActiveCell.Formula = "Товар"
Range("B1").Select
ActiveCell.Formula = "Всего шт."
Range("C1").Select
ActiveCell.Formula = "Продано"
Range("D1").Select
ActiveCell.Formula = "Остаток"
Range("E1").Select
ActiveCell.Formula = "Начальная цена"
Range("F1").Select
ActiveCell.Formula = "Цена продажи"
Range("G1").Select
ActiveCell.Formula = "Прибыль"
Range("H1").Select
ActiveCell.Formula = "Всего денег"
Range("I1").Select
ActiveCell.Formula = "Добавление"
'-----------------------------------------------------
With Sheets(a)
.Range("A2").Formula = "=" & Date - 1 & "!A2"
.Range("A2:A25") = .Range("A2").Formula
End With
With Sheets(a)
.Range("B2").Formula = "=" & Date - 1 & "!D2"
.Range("B2:B25") = .Range("B2").Formula
End With
With Sheets(a)
.Range("D2").Formula = "=B2-C2+I2"
.Range("D2:D25") = .Range("D2").Formula
End With
With Sheets(a)
.Range("E2").Formula = "=" & Date - 1 & "!E2"
.Range("E2:E25") = .Range("E2").Formula
End With
With Sheets(a)
.Range("F2").Formula = "=" & Date - 1 & "!F2"
.Range("F2:F25") = .Range("F2").Formula
End With
With Sheets(a)
.Range("G2").Formula = "=(F2-E2)*C2"
.Range("G2:G25") = .Range("G2").Formula
End With
With Sheets(a)
.Range("H2").Formula = "=F2*C2"
.Range("H2:H25") = .Range("H2").Formula
End With
End Sub