Sub b()
Dim DerCol As Long, plg As Range
Rows(6).Clear
[E3].Resize(, 12).SpecialCells(2, 1).Copy [E3].Offset(3)
DerCol = Cells([E3].Row + 3, Columns.Count).End(xlToLeft).Column + 1
[E3].Offset(1).Resize(, 12).SpecialCells(2, 1).Copy Cells([E3].Row + 3, DerCol)
Set plg = Cells(Rows.Count, "E").End(xlUp).Resize(, 12)
plg.Sort Key1:=plg, Order1:=xlAscending, Orientation:=xlLeftToRight
End Sub