Very small AutoFill macro showing "AutoFill methode of range class failed" why ?

below macro showing "AutoFill methode of range class failed" Run time error "1000":.

Please Login or Register  to view this content.

it works very well , after opening the macro module & press F8. but while i am going to use macro button it doesn't work .i get above read
color error in the last macro code(which is marked as red color)