Working MUltifindreplace code very slowly

Hi I have below code which have to replace word/numbers in multi sheets. In below example it takes 2 countries, but it have to be so i can put data in for 6 countries. My only problem with the code is that its really slowly, even if i only in my example have 2 countries.
I need help to make this code much faster, myabe it instead of the range A2:A5000 can be from A2 to last used cell in column A.
But please have a look. I have attached a little test sheet, so you can try on that.

Sincerely
Abjac

My slowly code

Please Login or Register  to view this content.

Hi AlphaFrog. Thanks for the help to this code it changed the speed very much. Infact the result comes right away. Thanks allot really great help.

Have a nice day

Sincerely
Abjac