Hello,

I was hoping something could be added to below that would sort the two columns (smallest to largest) based on the values in the right column.

Sub MIGARDEIN()
Dim column_number As Long
column_number = ActiveSheet.Cells.Find(What:="*", After:=Range("IV65536"), SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column + 1
Range(Cells(2, column_number), Cells(21, column_number + 1)).Value = Range("E2:F21").Value
End Sub

I appreciate very much... anyone who has a few minutes to take a look.

Thank you!