Improve Efficiency of VBA Code

[jonsonbero]

Many thanks M. Paul_Hossler for your time again.
Another try
I have written the code below It is working well but it takes too long time althought I used arrays
but After testing the code on the original file. It gave me a run-time error '13' a type mismatch In this line

     Let arrOut() = Application.Index(arrIn(), Rws(), Clms())

What are the reasons about this error? In your view sir
I apologize for my question. but I trying to figure this out for a few hours and can no longer the thinking.
Appreciate your help and thank you in advance.

[Paul_Hossler]

I don't get an error and the results seem to be OK

I did restructure your macro a little so that I could single step through it