sütundaki bilgileri belli kritere göre yeni sutunlara akta

[algoritma]

selam,
bir excel dosyamda tüm bilgiler sutunda bulunmakta. konu başlıkları ** ile bölümlenmiş. ** il ebaşlayan sütun bilgilerini yeni sütüna aktarmasını istiyorum.
örnek
A SUTUNU
***
ali
veli
***
ahmet
ayşe

bu bilgileri şu şekilde yapmalıyım
ASUTUNU B SUTUNU
ali ahmet
veli ayşe

 

[veyselemre]

[vb:1:92edb6e095]Sub dene()
sut = 1: sat = 0
For x = 1 To [A65536].End(3).Row
If Cells(x, 1) = "***" Then
sut = sut + 1
sat = 1
End If
Cells(sat, sut) = Cells(x, 1)
sat = sat + 1
Next
End Sub[/vb:1:92edb6e095]

 

[algoritma]

veyselcubuk teşekkür ederim ilgilendiğin için. ama bu sadece *** ların altındaki ilk satırı alıyor ama ben bir sonraki ** a kadar olan tüm dataları almasını istiyorum.
ilgilenbilirsin sevinirim.teşekkürler.

 

[veyselemre]

dediğiniz gibi çalışır her *** dan sonra yandaki sütuna devam eder
örnek dosya eklerseniz üzerinden gideriz

 

[algoritma]

tamam yaptım.
çok teşekkür ederim.