Напоминаю, старый адрес этой темы располагется здесь: Интересные вопросы по VBA Счастливым обладателям 2013 предлагается файл для препарирования. Выяснилось, что в 2003, 2007, 2010 работает, а в 2013 кнопка при смещении отказывается менять значение TopLeftCell. Сия фича вяснилась в теме "О вставке строк"Если кому интересно прошу комментариев и рецептов
Public Sub www()
Dim c As Range
Set c = Shapes(Application.Caller).TopLeftCell
Set c = Range("a:a").Find("Итого:", Cells(c.Row, 1), xlValues, xlWhole)
If Not c Is Nothing Then c.EntireRow.Insert
End Sub
? ТС, в теме, не оговаривал, что сдвиг только в столбцах A:E.
Ну раз тема "интересные вопросы...".. из недавно замеченного: в 2013 и 2016 excel union работает ровно в 2 раза дольше чем в 2010 (проверял на больших массивах). Может это у меня так?