Option Explicit
Sub Tri()
Sheets("F1").Range("B1:J10").Copy
Sheets("F2").Select
Range("B1").Select
ActiveSheet.Paste
Range("D2,F2,H2,J2").Select
Selection.EntireColumn.Delete
Range("B1").Select
Range("C3:F10").Sort Key1:=Range("C3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight
Sheets("F1").Select
Range("C14:C21").Formula = "=IF('F2'!R[-11]C="""","""",'F2'!R[-11]C)"
Range("E14:E21").Formula = "=IF('F2'!R[-11]C[-1]="""","""",'F2'!R[-11]C[-1])"
Range("G14:G21").Formula = "=IF('F2'!R[-11]C[-2]="""","""",'F2'!R[-11]C[-2])"
Range("I14:I21").Formula = "=IF('F2'!R[-11]C[-3]="""","""",'F2'!R[-11]C[-3])"
Range("B12").Select
End Sub