One of many ways:

Range("A2").Cut
ActiveSheet.Paste Destination:=Range("B1")
Range("A2").Delete Shift:=xlUp

--
Kind regards,

Niek Otten
Microsoft MVP - Excel

"Michael Grayson" wrote in message . ..
|I have an excel worksheet with 5500 rows of data. In one column, I have
| this
|
| A(1)= "Sample Data"
| A(2)= "New Data"
| A(3)= "Any Data"
| A(4)= "Same Data"
|
| etc, to A(5500)
|
| What I want to do is cut the data from A(2) and Paste it in B(1), so that
| A(1) = "Sample Data" and B(1) = "New Data"
|
| Then I want to Delete ROW(A(2))and shift the remaining rows up.