Excel VBA, ошибка времени выполнения «-2147417848 (80010108)»: метод «Вставка» объекта «Диапазон» не выполнен

Question

У меня очень простой код, который просто копирует столбец и вставляет его.Но иногда запуск макроса может привести к вышеуказанной ошибке во время выполнения и к аварийному завершению Excel.

Я надеюсь, что кто-то может сказать мне, что я сделал неправильно.

Sub PushOutAWeek()
    Dim ws As Worksheet
    Dim rng As Range

    Set ws = ThisWorkbook.ActiveSheet

    With ws
        Set rng = .Columns(ActiveCell.Column)
        rng.Copy
        rng.Insert xlShiftToRight

    End With

    Application.Calculate
End Sub

Когда янажмите кнопку «отладка», чтобы выделить следующую строку как проблему:

rng.Insert xlShiftToRight

Снимок экрана данных, в которые я вставляю новые столбцы: Снимок экрана

Answer 1

Я думаю, что это может сработать: возможна ошибка при настройке диапазона, этот код позволит избежать этого.

Sub PushOutAWeek()

    With ThisWorkbook.ActiveSheet
        .Columns(ActiveCell.Column).Copy
        .Columns(ActiveCell.Column).Insert xlShiftToRight
    End With

    Application.Calculate

End Sub