I also wanted to know if the text that it moves starts with -- I dont want
this in the move and if it ends in #'s I dont want the numbers either? I dont
mean to be a hog on the wisdom but if you can give me some more advice I
would greatl appreciate it, Neal.

"Ardus Petus" wrote:

Hi Neal,

Sub MoveIt()
Dim rCell As Range
For Each rCell In Range( _
Range("A1"), _
Cells(Rows.Count, "A").End(xlUp))
If rCell.Value < "" Then
rCell.Copy rCell.Offset(0, 1)
End If
Next rCell
End Sub

HTH
--
AP

"Neal" a écrit dans le message de news:
...
How would i go about writing an ecxel macro that would look in a cell and
if
it contained something cut and paste it into the cell next to it, and if
the
cell contained nothing would move to the next cell? Lets say if a1
contained
something it would cut and paste it to b1 and then it would move to a2
ect..
Any help would be greatly appreciated, thanks Neal.