Problem with searching and copy a lot of data

Hello guys

I have some problem with looking/copy some Data. In sheet "M", there are Columns D:H where you can put some PRW number, now I have Sheet "D" where I can look for some Material index.

And I need to make makro for search data for all Row's in Sheet("M") - D2:H26, but I don't know how many rows there will be in the future, could be 100 could be 200. And there can be data in all columns D:H but can be in one or two

Next step is to move all numbers to Sheet ("Data"), but I need to copy them in some specific way, first Range("J1"), then data below it and then K1 Below next Data below K1 etc With all Columns J:AH

Any idea how to make it easier for all rows ?! Coz all I manage to figure out was making it manually but its a lot of work, and I don't know how many Data in Sheet "M" will be in the future, can be 100 row but can be 200...

Please open attachment and check on 3 macros which I did and you will understand what I want^^

Thanks for you time and help