verileri tersinden yazdırma makrosu

[Carpintero]

Merhabalar,

ali
53426
papatya
bardak

Yukarıda ki verilerimiz A5 ten itibaren aşağı doğru sıralı vaziyette bulunuyor.

Verileri B5 ten itibaren aşağıda ki gibi yazdırmak istiyorum.
yani tersine çevireceğiz.

bardak
papatya
53426
ali

gibi, bu işlemi yapabilecek makroyu tasarlayamadım değerli yardımlarınızı
bekliyorum.

 

[vardar07]

Veriler "A1" den itibaren yazılacak yer "B1" den başlayacağı var sayılmıştır.

Sub dene()
Son = Range("a50").End(3).Row
a=5
For i = Son To 5 Step -1
Cells(a, "b") = Cells(i, "a")
a = a + 1
Next
End Sub

 

[Carpintero]

Teşekkür ederim
ellerinie sağlık
sayın vardar07