How to make this run faster/more responsive?

Maybe have a look at Planning and Implementing a Program

...R