By "first slot" I'm guessing you want it sorted so that it's at the top.
I'm not sure how you intended to cause the event so I added a button that triggers the below code, enjoy.
![]()
Range("A8:C15").sort Key1:=Workbooks("test.xls").Worksheets("Sheet1").Columns("B"), Order1:=xlAscending
Bookmarks