Hello,
I looked in post and found something what I'm looking to
do but instead of formatting a cell I want to move that
cell to column B next to it.
Here's part of the code where I need to do this:
If Not rng Is Nothing Then
FirstAddress = rng.Address
Do
rng. (Here's where I need to put the
code to move to Column B)

Set rng = .FindNext(rng)
Loop While Not rng Is Nothing And
rng.Address < FirstAddress
End If
Next I
End With
Basically what I want is find the word Total in COLUMN A
then when it finds it move to Column B continue until no
more and then I want to delete column A.

Hope this makes sense.
any help would be very appreciated.
thanks,
juan