Sorter i stigende orden

Sub Makro1()
    Range("B1:B5").Select
    Selection.Copy
    Range("C1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("c1").Select
End Sub

Har du husket at du kun indsætter værdier ved kopieringen? Hvis du kopierer SLUMP funktioen virker det ikke - cellerne bliver sorteret, men SLUMP beergner med det samme et nyt tal, og så passer sorteringen ikke længere.

    Range("A1:A5").Copy
    Range("C1:C5").PasteSpecial Paste:=xlValues
    Range("C1:C5").Sort Key1:=Range("C1"), Order1:=xlDescending

Det er lige præcis slump-funktionen der går ind og konflikter sorteringen.
Tilsyneladende virker begge ovenstående forslag.
Men kan jeg på anden snedig måde få sortering til at virke i kodeform?

BLOT LAV SLUMP I KOLONNE A, SÅ LAVER MAKROEN RESTEN
Sub Makro3()
    Range("A1:A5").Select
    Selection.Copy
    Range("B1:B5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D10").Select
    Application.CutCopyMode = False
    Range("B1:B5").Select
    Selection.Copy
    Range("C1:C5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Range("C1:C5").Select
    Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("D1").Select
End Sub

Du kunne jo også bruge følgende formler

=MINDSTE($A$1:$A$5;1)
=MINDSTE($A$1:$A$5;2)
=MINDSTE($A$1:$A$5;3)
=MINDSTE($A$1:$A$5;4)
=MINDSTE($A$1:$A$5;5)

nej jeg kan godt se at makro3 ikke  virker efter hensigten

men så gør formlerne det til gængæld :-)

Skal det være VBA det hele så prøv denne

Sub Makro1()
Dim t, tal(10)
For t = 1 To 5
tal(t) = Int((100 - 1 + 1) * Rnd + 1)
Next
For t = 1 To 5
Range("a" & t).Value = tal(t): Range("b" & t).Value = tal(t): Range("c" & t).Value = tal(t)
Next
Range("C1:C5").Select
    Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("D1").Select

End Sub

Ups kom til at give sjap point, det har han også fortjent, men det var excelents sidste god ide jeg fuldt ud kan bruge.
Jeg opretter lige et nyt spm. så excelent kan svare