Список проголосовавших за комментарий "если вставить в кнопку старт еще это:<br/> Application.Calculation = xlCalculationManual<br/> Application.ScreenUpdating = False<br/> считает все за полсекунды<br/> ну и в конце кода:<br/> Application.Calculation = xlCalculationAutomatic<br/> Application.ScreenUpdating = True"