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