Спасибо.
Если строку итогов убрать, то всё работает

Вот такой у меня макрос

Sub Макрос6()
   With Sheets("ДР").ListObjects("Таблица6")
       .ListRows.Add
'        ActiveSheet.Shapes("Кнопка 98").Top = .TotalsRowRange.Offset(1).Top
   End With
End Sub

я прошу прощения, но не понимаю, куда добавить (в какое место) .EntireRow?

спасибо, я вижу что выведи строгу с итогами отдельно, но при добавлении новых строк всё смещается вниз только под таблицей, а по бокам остается на месте.

Добрый день!
Подскажите, это как убрать итоговую строку и добавить ниже?
не силён в этом(

Спасибо большое, помогло.
Доделал я таблицу и под конец столкнулся с проблемой.
Итого строка "ИТОГОВАЯ СТОИМОСТЬ ПРОВЕДЕНИЯ МЕРОПРИЯТИЯ" при добавлении строки выше кнопкой некорректно отображается
Почему-то все переносится неправильно. Сложно описать, файл прилагаю.
Подскажите, что сделать надо

Добрый день!
Коллеги, помогите разобраться с вопросом, сломал всю голову.
Есть файл в котором несколько умных таблиц, в конце каждой таблицы есть кнопка добавления строчки.
В первой таблице (таблица1) по нажатию кнопки всё нормально добавляется и добавленная строка имеет теже формулы, что и строка выше.

Со второй таблицей (таблица5) проблема.
При нажатии на кнопку добавляется строчка, но она не имеет настроек (формулы и ниспадающий список) строчки выше, совсем другие настройки.
Макросы вроде одинаковые прописаны.
Подскажите, что не так?
Или можно как-то указать данные с какой строчки копировать при нажатии кнопки и вставке строчки.