Код читает как то не правильно через F8

[FiataliS]

Добрый день, была проблема с кодом, и просматривал его поэтапно чтобы найти причину, проблему конечно устранил но заметил такую особенность:
Постоянно на одном и том же этапе кода (это встречается несколько раз), идет переход на тело Листа1() и пока полность его не прочитает не продолжает читать код. Дело в том что в модуле который выполняеться нету ссылок и упоминаний тела Листа1()

Это нормально и так и должно быть?
Или можно как то этого избежать?

Sub Remove_File()

  Application.ScreenUpdating = False
    
Dim sFileNamez As String, sNewFileNamez As String
X = ActiveCell.Row
Range("i" & X).copy
Range("n" & X).PasteSpecial xlPasteValues 'Здесь одно из мест откуда проиcходит переход
Dim Fa$, Ka$, La$, Rezultata$

Искал причину, эти ячейки также не где не упоминаються в теле Листа1()

[Hugo121]

Если нужен другой лист - укажите какой. А так конечно копирует в активный, или в тот, в модуле которого код (отсюда не видно).
Ну а на листе после вставки вероятно отрабатывают формулы, так и должно быть, если пересчёт не отключен.

[FiataliS]

Сообщение от Hugo121

на листе после вставки вероятно отрабатывают формулы, так и должно быть, если пересчёт не отключен.

Согласен с этим, а как можно было бы этот пересчет отключить в конкретном Sub?

[Hugo121]

Запишите рекордером отключение пересчёта - получите код.
Не забудьте в конце включить его назад.
Если брать этот данный кусок кода - тут пересчёт отключать нет нужды

    Application.Calculation = xlCalculationManual
'код
    Application.Calculation = xlCalculationAutomatic

Вообще желательно сперва запомнить состояние пересчёта, затем его отключить (ну или только если нужно), затем вернуть как было. Ну в общем понятно - смотрим по задаче, но чтоб не было так - у человека пересчёт всегда отключен, а после Вашего кода вдруг всё считается само...

[FiataliS]

Не знаю в чем проблема, но пересчет не отключается и ошибки не выдает.