VBA Code to Get data from the other sheet and sort it

Hello Everybody,
Could you help me in my question, please?
The file is about history of material in the store
The file contains a code that gets data from "Current Material" sheet and put it in "Report" Sheet and sort it.
But recently the code doesnot work well because the data is not organized ,run the code and go to the end of Report sheet.
Note:The code is called "Getpiles" in module 1
please help me