Move data without deleting rows

[mancubus]

try this

Sub vbax_53661_CutPasteDeleteRange()
    Range("A2:A100").Cut Destination:=Range("E" & Rows.Count).End(xlUp).Offset(1)
    Range("A2:A100").Delete Shift:=xlUp
End Sub