Move data without deleting rows

Is it possible to move data from in a column column to another and then move the source column data up without deleting the rows?

So, let's say I have data in A2:A1000 - I want to move A2:A100 to the first empty row in Column E and then move A101:A1000 up to A2 onwards.

The copy and paste thing I guess is probably straightforward, it's the moving up of the remaining data that will cause me the most trouble I fear.....

Posted elsewhere too;

http://www.mrexcel.com/forum/excel-q...ting-rows.html

try this

Code:

---

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

---