How to copy datas based on criteria?

Based on the codes somehow you can see what ive been trying to do.

Actually, NO! Why don't you explain what you want instead of asking us to analyze a crippled code. In this manner, we can supply you with a workable solution instead of trying to repair something that is broken. It would also be beneficial if you uploaded a sample workbook and use that to explain what you want to happen. A mocked up solution is also beneficial. It need not be a full worksheet/workbook but only a small representative sample.

Welcome to the forum

Please attach a sample workbook (not a picture or pasted copy). Make sure there is just enough data to demonstrate your need. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are shown, mock them up manually if necessary.

Remember to desensitize the data.

Click on GO ADVANCED and then scroll down to Manage Attachments to open the upload window.

(You can always post a sheet or picture on the forum if you follow the above)

Thank you for your Reply and Explanation. I uploaded the files, i hope it Shows properly. Keep it in mind that the original file contains around 40.000 rows.
Thanks in advance