Verileri farklı bir sütunda büyükten küçüğe sıralama

[web_tasarimci]

a1 ile a4 arasına yazdığım sayıları butona bastığım zaman b1 ile b4 arasına büyükten küçüğe doğru sıralamasını istiorum ama yapamıorum lütfen yardımcı olursanız sevinirim ama çok acil 20 saat içerisinde bitirmem lazım

 

[Ömer]

Merhaba,

Sub Sırala()
    [A1:A4].Copy
    [B1].Select
    ActiveSheet.Paste
    Selection.Sort Key1:=[B1], Order1:=xlDescending
    [B1].Select
End Sub

Denermisiniz..