Sub обновление_сводной()
    Dim св_nnr%, св_nnc%, св_метка_nns%, св_метка_nnr%, св_метка_nnc%, св_метка_с%, св_il%, св_v_il%
    Dim св_il_база() As Integer, св_il_вставка() As String
    
    On Error Resume Next
    With Sheets("Сводная")
        св_метка_nns = Application.Match("1. План продаж в стоимости продаж", .Range("A1:A20").Value, 0)
        св_nnr = .Range("A" & Rows.Count).End(xlUp).Row
        св_nnc = .Cells(св_nnr, Columns.Count).End(xlToLeft).Column
        св_метка_nnr = св_nnr - св_метка_nns + 1
        св_метка_nnc = св_nnc + 4
        
        ReDim св_il_база(1 To св_метка_nnr, 1 To 1)
        ReDim св_il_вставка(1 To св_метка_nnr, 1 To 1)
        
        For св_il = св_метка_nns To св_nnr
            св_метка_с = св_il - св_метка_nns + 1
            св_il_база(св_метка_с, 1) = .Cells(св_il, 1).IndentLevel
            If св_il_база(св_метка_с, 1) = 3 Then
                св_il_вставка(св_метка_с, 1) = .Cells(св_il, 1).Value
            Else
                св_il_вставка(св_метка_с, 1) = св_il_вставка(св_метка_с - 1, 1)
            End If
        Next
        
        .Cells(св_метка_nns, св_метка_nnc - 1).Resize(св_метка_nnr, 1) = св_il_вставка
    End With
End Sub