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

[DanzaNZ]

Hi again

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

Sub TEST()
    Dim r As Integer, r2 As Integer
    Dim LastRow As Integer
    LastRow = Sheets("Source").UsedRange.End(xlDown).Row
    For r = 2 To LastRow
        r = Cells.Find(What:="Is an annualised employee. No payments processed.", After:=ActiveCell, LookIn:=xlValues).Row
        Rows(r).Cut
        r2 = r2 + 1
        Sheets("RD169NZ_ERRORS").Paste Destination:=Worksheets("RD169NZ_ERRORS").Cells(r2, 1)
Next r
End Sub

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