my code delete all the rows

here is my code for cut a row upon value of specific cell then paste it in other sheet then delete the cutted row but when it execute it delete all the rows not the cutted one only

Sub fail()
Dim my   As Long
For my = 2 To 65536
       If Cells(my, "O").Value = "11" Then
       Rows(my).Cut
       Sheet1.Activate
       NextRow = Sheet1.Range("A65536").End(xlUp).Row + 1
       Sheet1.Range("A" & NextRow).Insert
       Sheet2.Rows(my).Delete
End If
   Next my
End Sub