Need a macro to copy data from one sheet to another based on condition.

I have an excel file where there are 6 sheets with names (Final, Sheet1, Sheet2, Sheet3, Sheet4, Mail).
In Final Sheet I am taking some values in a table which are calculated from all the remaining sheets 1 to 4.
Now what I want is if the table column headding is P1 or P2 and row headding as Fail then it should copy and paste the corresponding data from the corresponding sheet. (Range always starts from B4 and ends with the last filled row of that sheet)
If both P1 and P2 values with Fail headding exists then it should copy data one below the other starting in Mail sheet from cell A10). The copied data should be autofit.

All the sheets from 1 to 4 are imported at the time of requirement. So, the data is not static. it is dynamic.

Attached is the test file. Please help.