debug error

Hello all expert,

I have a program in module 2 in attached excel file that help me find some rows in sheet1 and put in sheet2. I'm keep running into run time error eventhough I find nothing wrong with the code. Any input will be greatly appreciated.

Thanks,
VB