
Sub Macro1()
Columns("A:F").Select
Selection.Delete
Columns("B:F").Select
Selection.Delete
Columns("D:F").Select
Selection.Delete
Selection.Delete
Cells.Columns.AutoFit
With Range("A1")
.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
End Sub
|
Range("A:B,E:E").Delete |
