Cut and Paste Macro

Guys,

I need some help again. I just need the rows which has the string from the inputbox to be cut paste to sheet2. Here's the code I have so far.

Sub test2()
Dim btext As String
btext = InputBox("Insert in a text", "This accepts any input")

  For i = Cells(Rows.Count, 3).End(xlUp).Row To 6 Step -1
    With Cells(i, 3)
        If Not IsEmpty(.Value) Then
            If InStr(.Value, btext) = 0 Then _
                Rows(i).EntireRow.Cut Destination:=Sheets("Sheet2")
                'Range("D65536").End(xlUp).Offset(1, -3)
            End If
    End With
  Next i

End Sub