Как избавиться от сообщения о замене конечных ячеек при перезаписи при том что Application.DisplayAlerts не работает - выдает ошибку что метод не поддерживается.
Чтобы автоматически на сообщение был ответ ОК и отчет дорабатывал дальше?

Про метод: приложила картинку (скриншот)

а что касается вставки. Он на вот это ругается почему-то

<sup>Sheets("Регистр").Select
ActiveSheet.PivotTables("PivotTable1").RefreshTable

' Делаем скрытыми столбцы показателей, для которых нет транзакционных данных

i = 0
k = 0

For k = VAL_COL_F To VAL_COL_T Step 2
If Cells(CHECK_ROW, k).Value = "" Then
Range(Columns(k), Columns(VAL_COL_T)).Select
Selection.EntireColumn.Hidden = True
i = k - 1
Exit For
End If
Next k</sup>

Спасибо! Уже разобралась!