тормозит макрос после первой печати данного документа

[Hugo121]

Не понял
О цитате - у Вас b от одного до четырёх. Зачем эти проверки, если больше четырёх оно не будет никогда? Вероятно проверять собирались значения ячеек листа, но какие - непонятно.
Про массив и лист - берёте быстро данные в массив, быстро их перебираете, а медленно на лист стирать значения лезете только тогда, когда нужно исправить на листе.
Ещё быстрее быстро исправить в массиве и быстро исправленный массив выгрузить назад на лист.
Но так перепишутся все значения, формулы заменятся на значения, а это нужно смотреть по задаче, можно ли так поступать.

Пример кода есть выше, вот основное:
Берём:
x = [b9:b258].Value

Перебор:
For i = 1 To UBound(x)
If x(i, 1) = "" Then Rows(i + 8).RowHeight = 0
Next

Выгружаем (этого там небыло, но несложно догадаться):
[b9:b258].Value = x

[SergeiK]

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

Не понял
О цитате - у Вас b от одного до четырёх. Зачем эти проверки, если больше четырёх оно не будет никогда? Вероятно проверять собирались значения ячеек листа, но какие - непонятно.
Про массив и лист - берёте быстро данные в массив, быстро их перебираете, а медленно на лист стирать значения лезете только тогда, когда нужно исправить на листе.
Ещё быстрее быстро исправить в массиве и быстро исправленный массив выгрузить назад на лист.
Но так перепишутся все значения, формулы заменятся на значения, а это нужно смотреть по задаче, можно ли так поступать.

Пример кода есть выше, вот основное:
Берём:
x = [b9:b258].Value

Перебор:
For i = 1 To UBound(x)
If x(i, 1) = "" Then Rows(i + 8).RowHeight = 0
Next

Выгружаем (этого там небыло, но несложно догадаться):
[b9:b258].Value = x

этот последний код находится на другом листе и предназначен именно для того, чтобы преобразовывать данные в число , вставляемые из другого файла excel, если не преобразовать в число, файл работает неверно.