Option Explicit
Sub Tri_10()
With Sheets("F1")
.Range("A2:C43").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess
.Range("A2:C11").Copy Destination:=Sheets("F2").Range("A2")
.Range("A12:C21").Copy Destination:=Sheets("F2").Range("D2")
.Range("A22:C31").Copy Destination:=Sheets("F2").Range("G2")
.Range("A32:C41").Copy Destination:=Sheets("F2").Range("J2")
.Range("A42:C51").Copy Destination:=Sheets("F2").Range("M2")
End With
With Sheets("F2")
.Range("A:A").RowHeight = 49.5
.Range("A1:Z1").EntireColumn.AutoFit
.Range("C1,F1,I1,L1,O1").ColumnWidth = 19.14
Range("A1").Select
End With
Sheets("F2").Select
Sheets("F2").Copy
End Sub