'прописать формулу(один хрен снесут)

With ThisWorkbook

' .Names("Статус").RefersToR1C1 = "='SAFETY LUP'!R32C110:R2000C116"

With .Names("Период")

.Name = "Период"

.RefersToR1C1 = "='SAFETY LUP'!R" & lngRowStart & "C1:R" & lngRowEnd & "C1"

.Comment = ""

End With

With .Names("Статус")

.Name = "Статус"

.RefersToR1C1 = "='SAFETY LUP'!R" & lngRowStart & "C110:R" & lngRowEnd & "C110"

.Comment = ""

End With

With .Sheets("SAFETY LUP")

Range(.Cells(lngRowStart, 1), .Cells(lngRowMax, 1)).FormulaR1C1 = "=YEAR(RC[5])&""_""&WEEKNUM(RC[5],21)"

End With

End With

Calculate