Sub Макрос1()
    Dim tb As Object
    n_ = Cells(1, 5).Value 'значение в ячеке для условия (в дальнейшем используется как n_)
    If n_ <= 5 Then Exit Sub 'само условие что меньше 5 нельзя (так что ли!?)
    Set tb = ActiveSheet.ListObjects("Таблица1") 'Присваивается переменный диапазон ячеек с помощью оператора Set
    nr_ = tb.ListRows.Count
    ndob_ = n_ - nr_ 'вычисления амортизации (вроде как!?)параметра n_
    If ndob_ <= 1 Then
    
    Rows("13:" & nr_ - 1).Delete xlShiftUp 'и если n_ просчитает амартизацию и оно будет (чет запутался)
        MsgBox "В таблице уже есть " & n_ & " строк"
        Exit Sub
    End If
    
    Application.ScreenUpdating = 0
    Application.Calculation = 3
    tb.ShowTotals = True 'Получает или задает логическое значение, указывающее, видна ли общая строка
    Cells(Range(tb).Row + nr_, 1).Resize(ndob_).EntireRow.Insert
    tb.ShowTotals = False 'Получает или задает логическое значение, указывающее, видна ли общая строка
    Application.Calculation = 1
    Application.ScreenUpdating = 1
End Sub