Sub Macro()
Columns("A:A").Insert Shift:=xlToRight
[C1].Cut [A1]
End Sub
Sub Macro2()
Range("A1:B1").Sort _
Key1:=Range("A1"), _
Order1:=Switch([A1] > [B1], xlAscending, [A1] < [B1], xlDescending), _
Header:=xlGuess, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlLeftToRight
End Sub
Sub Inverser()
Dim F$
F = [A1].Formula
[A1].Formula = [B1].Formula
[B1].Formula = F
End Sub