=ПРЕДСКАЗ.ETS($DU$1;E2:AP2;$E$1:$AP$1)
=НАКЛОН(E2:AP2;AT2:CE2)
=ОТРЕЗОК(E3:AP3;AT3:CE3)

Sub Spiski_delete()
Sheets("Списки").Select
Dim i As Long
Dim iLastRow As Long
 iLastRow = Cells(Rows.Count, 11).End(xlUp).Row
  For i = iLastRow To 5 Step -1
    If Cells(i, "K") = "{10} Материальные затраты" Or Cells(i, "K") = "{50} Прочие затраты" Then
      Cells(i, "K").Delete
    End If
  Next
End Sub

Sub УПР_расходы_delete()
Sheets("Управленческие расходы").Select
Dim i As Long
Dim iLastRow As Long
 iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
  For i = iLastRow To 16 Step -1
    If Cells(i, "A") = "{10} Материальные затраты" Or Cells(i, "A") = "{50} Прочие затраты" Then
      Cells(i, "A").ClearContents
    End If
  Next
End Sub