Macro to filter data and copy the data's from multiple columns based on the criteria

Hi,
I am trying to write a macro which can do the following work:

I have a worksheet of multiple column's. In every column there are thousand number of data's. I have to filter the columns and copy the data's from 4 columns. The copying showed follow some rules. For example, we can assume we have ar1 = [{"One", "Two", "Three", "Four"}] in column A and a 2nd array ar2 = [{"shawn", "shakahwat", "millat", "nipun", "nipu", "bappy"}] in column D. Now what I want it is, at first the macro will select criteria one from ar1 and then it will select shawn from ar2. After that it will copy the filtered data to a new sheet with the column header. We can also assume the header of column A is number and column D is name. However, now it will select shakahwat from ar2 and again copy the data's to the end of the new sheet data's. One by one it will follow the other criteria's of ar2 and do the same work. When ar2 is finish it will then select the 2nd criteria of ar1 and do the work in the same way as before.

I can attache an example with the new sheet as it showed be look like after running the macro.