Can I make this code run quicker? and a loading or progress status bar

Question

I was looking to improve my code below to make even faster then what it currently is. I am a complete noob when it comes to excel VBA and coding in general. I am sure their