Put this in your workbook and create a button that calls it.

'/======================================/
Sub MySort()
Selection.Sort _
Key1:=Range("F2"), Order1:=xlAscending, _
Key2:=Range("G2"), Order2:=xlAscending, _
Header:=xlYes, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom
End Sub
'/======================================/
HTH,
--
Gary Brown

If this post was helpful, please click the ''Yes'' button next to ''Was this
Post Helpfull to you?''.


"gmisi" wrote:

can somebody pse help me out?
how can I automate the sorting (in ascending or desc. order) columnA
(variable lenght) containing mixed multiple text and/or number values (even
blank ones) so, that in colF will be the sorted list of unique values and
colG will show how many times this value figures in the unsorted list

many thanks in advance