Sub sonic()
Range("A2").Copy Range("B1")
Range("A2").EntireRow.Delete
End Sub

--
Gary''s Student - gsnu200750


"Michael Grayson" wrote:

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.