The following line will sort on column M (13th field from A1) and bring up the top 10
Range("A1").AutoFilter Field:=13, Criteria1:="10", Operator:=xlTop10Items
Change the criteria to whatever you want, or have it as a variable (a cell value or an input box, for example).
MyVar = InputBox("Enter top ## of items to display")
Range("A1").AutoFilter Field:=13, Criteria1:=MyVar, Operator:=xlTop10Items
HTH,
Jay