Code Cleanup

Function Test()	
	Rows("1:2").Delete Shift:=xlUp

    Range("B:B,E:E,R:R,N:N,O:O,T:T,V:V").Copy
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Paste

    ActiveSheet.Range("$A$1:$G$384").RemoveDuplicates Columns:=2, Header:=xlYes
    Columns("E:E").Cut
    Columns("A:A").Insert Shift:=xlToRight
    Columns("C:C").Cut
    Columns("B:B").Insert Shift:=xlToRight    

    ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Add Key:=Range("A2:A124") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Add Key:=Range("B2:B124") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet2").Sort
        .SetRange Range("A1:H124")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

    Range("A1").Select
End Function