Delete cut line has me stumped !!!!

[MasterChief]

I use the following code which works great, however it will not delete the line after it has been cut? Any ideas please.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 1 Then
If Target.Value = 3 Then
Target.EntireRow.Cut Destination:=Sheets("Sheet2"). _
Range("A" & Rows.Count).End(xlUp).Offset(1)
Target.EntireRow.Delete
End If
End If
Application.EnableEvents = True
End Sub

 

[NeonRedSharpie]

Private Sub Worksheet_Change(ByVal Target As Range)    Application.EnableEvents = False
        If Target.Column = 1 Then
            If Target.Value = 3 Then
                Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = Target.EntireRow.Formula
                Target.EntireRow.Delete
            End If
        End If
    Application.EnableEvents = True
End Sub

Maybe try this and see if it works? I'm not sure it will since I don't normally cross "value" and "formula". If it hangs up on that, you can change the ".formula" into ".value" and it might work. I know it's a different way at doing things, but it might help diagnose the problem.