İki değer arasını seç ve kopyala

[necati]

Merhaba,
Sayfa1 de A kolonunda alt alta isim ve adreslerim var. Her isim "Sayın" ile başlıyor. Her isim adres grubu 2'li 3'lü veya 4'lü satırlı olabiliyor. Ben iki "Sayın" arasını bul, seç, kopyala deyip Sayfa2'ye A kolonuna alt alta özel yapıştır/İşlemi tersine çevir diye yapıştırmak istiyorum. Yani Sayfa1 deki altalta olan verileri Sayfa2'ye yan yana yapıştırmak istiyorum.

***A KOLONU***
Sayın Ali Ak
Kartaltepe mah.
BAKIRKÖY / İSTANBUL
Sayın Veli Ak
Kartaltepe mah.
Geniş Cad.
FATİH / İSTANBUL
Sayın Ali Ok
Kartaltepe mah.
EMİNÖNÜ / İSTANBUL
Sayın Veli Koç
Kartaltepe mah.
Geniş Cad.
Susam sok.
ÜSKÜDAR / İSTANBUL

 

[veyselemre]

Sub veri_diz()
sut = 1
For x = 1 To [a65536].End(3).Row
        sut = sut + 1

        If InStr(Cells(x, 1), "Sayın") Then
            sut = 2
            sat = sat + 1
        End If
        Cells(sat, sut) = Cells(x, 1)
Next x
End Sub

 

[necati]

Sayın veyselemre, cevabınız için teşekkür ederim.