the following sub will find unique values from G9 downwards in column G and
write in M9 and down in
column M.
I hope this is what you want.
------------
Public Sub test()
Dim cellone As Range
Dim indexrange As Range
Dim result As Range

Set cellone = Range("g9")

Set indexrange = Range(cellone, cellone.End(xlDown))
Set result = Range("m9")
indexrange.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=indexrange, _
CopyToRange:=result, Unique:=True
End Sub
-------------------------
I did not undestand your requirement reg <sort>
sorting left toright can be done by clicking <opitons> in sort
window(data-sort) and clicking <sort left to right>
you can create macro by doing the operations.



Michael168 <Michael168.1pxu6a_1117613103.477@excelforum-nospam.com> wrote in
message news:Michael168.1pxu6a_1117613103.477@excelforum-nospam.com...
>
> Hi! VBA Expert here
>
> I am looking for a module that read from G9:L(last row) and write the
> unique values into the cells M9:R (last row) with sorting left to
> right.
>
> Few Examples :
>
> G9:L14 M9:R14
>
> 4 5 3 3 4 5 = 3 4 5
> 2 2 3 6 7 0 = 0 2 3 6 7
> 7 4 9 8 2 3 = 2 3 4 7 8 9
> 7 9 9 0 1 8 = 0 1 7 8 9
> 7 1 6 8 6 6 = 1 6 7 8
> 6 7 9 1 7 6 = 1 6 7 9
>
> I wish the above example is clear for you to help me.
> Thanks for helping.
>
> Regards,
> Michael
>
>
> --
> Michael168
> ------------------------------------------------------------------------
> Michael168's Profile:
http://www.excelforum.com/member.php...nfo&userid=605
> View this thread: http://www.excelforum.com/showthread...hreadid=375538
>