Прописал пару строк в код, вроде стало быстрее, но все равно где то 5 минут ждал.
'Вначале
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
'В конце
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True




