Sub SortMultipleColumns()
    Range("A1:C" & zadnjiRed).Sort Key1:=Range("A1"), Order1:=xlAscending, _
                         Key2:=Range("B1"), Order2:=xlDescending, _
                         Header:=xlNo
End Sub