Now, it's more perfect. I figured out how to cancel the 2nd double click effect in case the Esc button was pressed after the 1st double click.

[vba]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Static DbCk As Boolean

If Target.Value = "Not This Cell" Or Target.Row = 1 Then Exit Sub

If Not DbCk Then
Target.EntireRow.Cut
Else
If Not Application.CutCopyMode = xlCut Then
DbCk = Not DbCk
Exit Sub
Else
Target.EntireRow.Insert Shift:=xlDown
End If
End If

DbCk = Not DbCk
Cancel = True

End Sub[/vba]