Change cell content to different column.

[Manolocs]

Hi, is there a way to change the location of cell contents to another column?
In the example below I have the ">>" symbols in alternate columns in Table 1
I need all of them in column "B" like Table 2.
If possible with formulas
Thanks in advance


Table 1 - actual
[TABLE="class: grid, width: 200, align: left"]
<tbody>[TR]
[TD]A[/TD]
[TD]B[/TD]
[TD]C[/TD]
[TD]D[/TD]
[TD]E[/TD]
[/TR]
[TR]
[TD]Name1[/TD]
[TD]James[/TD]
[TD]George[/TD]
[TD]John[/TD]
[TD]>>Thomas[/TD]
[/TR]
[TR]
[TD]Name2[/TD]
[TD]Walt[/TD]
[TD]>>Mark[/TD]
[TD]Thomas[/TD]
[TD]Scott[/TD]
[/TR]
[TR]
[TD]Name3[/TD]
[TD]Gerald[/TD]
[TD]Chester[/TD]
[TD]Calvin[/TD]
[TD]>>George[/TD]
[/TR]
[TR]
[TD]Name4[/TD]
[TD]>>Zach[/TD]
[TD]Willian[/TD]
[TD]Quincy[/TD]
[TD]Eduard[/TD]
[/TR]
</tbody>[/TABLE]










Table 2 - desired
[TABLE="class: grid, width: 200, align: left"]
<tbody>[TR]
[TD]A[/TD]
[TD]B[/TD]
[TD]C[/TD]
[TD]D[/TD]
[TD]E[/TD]
[/TR]
[TR]
[TD]Name1[/TD]
[TD]>>Thomas[/TD]
[TD]James[/TD]
[TD]George[/TD]
[TD]John[/TD]
[/TR]
[TR]
[TD]Name2[/TD]
[TD]>>Mark[/TD]
[TD]Walt[/TD]
[TD]Thomas[/TD]
[TD]Scott[/TD]
[/TR]
[TR]
[TD]Name3[/TD]
[TD]>>George[/TD]
[TD]Gerald[/TD]
[TD]Chester[/TD]
[TD]Calvin[/TD]
[/TR]
[TR]
[TD]Name4[/TD]
[TD]>>Zach[/TD]
[TD]Willian[/TD]
[TD]Quincy[/TD]
[TD]Eduard[/TD]
[/TR]
</tbody>[/TABLE]

 

[BobUmlas]

Sub Shifter()
For Each thing In Selection
If Left(thing, 2) = ">>" And thing.Column <> 2 Then
thing.Cut
Cells(thing.Row, 2).Insert
End If
Next
End Sub

 

[Manolocs]

Hi BobUmlas, I will try to figure out how to install this in my excel let you know if is working as I need, thanks

 

[Manolocs]

Hi BobUmlas, it is working perfect thanks for your time