Option
Explicit
Sub
Test()
With
Range(
"A1:D5"
)
With
.Rows(1).Resize(2)
Call
.Insert(xlShiftDown)
.Rows(1).Offset(-2).Formula =
"=COLUMN()"
.Rows(1).Offset(-2).Value = .Rows(1).Offset(-2).Value
.Rows(1).Offset(-1).Value = Array(, 1, , 0)
End
With
With
.Offset(-2).Resize(.Rows.Count + 2)
Call
.Sort(Key1:=.Rows(2), Order1:=xlAscending, Orientation:=xlSortRows, Header:=xlNo)
End
With
With
.Columns(1).Resize(, 2)
Call
.Sort(Key1:=.Columns(1), Order1:=xlAscending, Orientation:=xlSortColumns, Header:=xlYes)
End
With
With
.Offset(-2).Resize(.Rows.Count + 2)
Call
.Sort(Key1:=.Rows(1), Order1:=xlAscending, Orientation:=xlSortRows, Header:=xlNo)
End
With
With
.Offset(-2).Resize(2)
Call
.Delete(xlShiftUp)
End
With
End
With
End
Sub