ник: Lukas
Вообще для начала следует определить "тормознутые" участки форматирования.
Навтыкать между блоками
Debug.print "начало блока...", VBA.Timer
Debug.print "конец блока...", VBA.Timer
Найти наиболее тормознутые, и попробовать другие варианты.
Может попробовать именовать Range?
А вообще, объединение ячеек и вручную заметно подтормаживает.