Linking Adjacent Cells

[jmd0103]

I have a macro that moves cells in one order to another order. As these cells move is there any way to have the cells right next to each of them move along with them.

For example: My macro puts column 1 in numerical order....can I link column 2 to column 1 so that column 2 follows the new order of column 1?
[TABLE="class: grid, width: 500, align: left"]
<TBODY>[TR]
[TD]Column 1[/TD]
[TD]Column 2[/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD]cat[/TD]
[/TR]
[TR]
[TD]5[/TD]
[TD]dog[/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD]horse[/TD]
[/TR]
[TR]
[TD]3[/TD]
[TD]pig[/TD]
[/TR]
[TR]
[TD]4[/TD]
[TD]elephant [/TD]
[/TR]
</TBODY>[/TABLE]

 

[Vidar]

Hi

I sorted your table (smalles to largest) with the macro recorder on.
Can you adjust the code to suit your needs?

Sub SortTable
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A2"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A2:B6")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Vidar

 

[jmd0103]

Thanks!