Change Event for Cut and Paste

[dzrdw0]

I found this code in this forum which works great but now I want the values to be CUT to the next column instead of copying them. Any help would be appreciated.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error GoTo stoppit
For Each cell In Application.Intersect(Range("E2:E50"), Target)
n = Target.Column
ActiveSheet.Cells(Rows.Count, n).End(xlUp) _
.Offset(0, 1).Value = Target.Value
Next
stoppit:
End Sub

[JBeaucaire]

Maybe like so:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim cell As Range
On Error GoTo ErrorExit
Application.EnableEvents = False

    For Each cell In Application.Intersect(Range("E2:E50"), Target)
        With cell
            Cells(Rows.Count, .Column).End(xlUp).Offset(0, 1).Value = .Value
            .Clear
        End With
    Next cell

ErrorExit:
    Application.EnableEvents = True
End Sub