[ milenkos78 @ 07.12.2014. 12:19 ] @
Uspe da mi sortira dane kada kopira u levu tabelu sa RANK, ali problem nastane kada ima dva ista datuma. Da sa klasičnim filterom sortiram ne mogu, ima više razloga, prvi je što iz različitih formula dobijam rezultate.

[ Ivek33 @ 07.12.2014. 18:48 ] @
Vidi jel ti pomaže ovo

Code:
Sub Sortiranje()
    Range("H1:K10").Select
    Selection.Copy
    Range("A1").Select
    ActiveSheet.Paste
    Range("A1:D10").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("A1").Select
End Sub