listedeki isimleri ikişer sıralatmam gerek

[gusepir]

çok basit bir işlemdir belki de ama, bilemedim ben... bir hesaplamada kullanmak üzere, altalta yazılmış isimler var listemde, sadece bu isimleri yan sütuna "ikişer tane olacak şekilde sıralatmam gerek... var mıdır makroyla ya da tek tuşla yapmanın bir yolu ustalar?

ekteki gibi mesela;

 

[hamitcan]

Sub IkiserAktar()
For i = 1 To [a65536].End(3).Row
    c = c + 1
    Cells(c, "b") = Cells(i, 1)
    Cells(c + 1, "b") = Cells(i, 1)
    c = c + 1
Next
End Sub

 

[gusepir]

hamitcan hocam, çok teşekkür ederim, cuk oturdu işlemime resmen