No need to move the Sub.
I assume they are calculations inside For-Next (or Do While/Until) loops. Put a Sleep(30) inside one or more of them (30 is an approximate value).
Note that the Sub containing Sleep becomes a Resumable Sub, so treat it as such, in the way you execute it (using Wait For) and for the data type it returns.
The "progress bar" as you described it is not a progress bar, but something that rotates until the processing is complete. You can find some like that on the site.