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