Autofilter in Vba works fine for code in button_click but dosen't work as a function

Dear all ,

Please find Excel Sheet "testrange.xlsm"

I have a peculiar problem i have a code written to filter data in module1 which is asigned to button_click1 and works fine
but the same code as "module2" called as function dosen't show the same results.

Regards,
Raji