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.