How to custom sort in another workbook

I have 2 workbooks, workbook1 has all the macros, workbook2 has all the data.
I want to run the a macro in workbook1 to sort the data in workbook2 based on 4 criteria

But when i runned the macro it gave me Runtime error '1004'

Please Login or Register  to view this content.

The code crashes when it reaches .Apply
I really dont know why this happens, please somebody help me !