Run-time Error 91. Trying to cut rows from Sheet(source) and paste to another sheet

Hi again

I am getting another Run-time error (91) from this code:

Please Login or Register  to view this content.

I found that when there is no more matching values to find, it then throws the error.
Any ideas on how to prevent this 92 error from showing?

Thanks
Dan

Please Login or Register  to view this content.