satır sonuna kopyalama yaptırma

[Ahmet Hoca2]

selamlar
yaptığım bir çalışmada üst satırdaki bir-iki kelimelik başlığı
alt satırdaki açıklamanın sonuna kopyalatmak istiyorum
bunu yapabilir miyim?

 

[Ahmet Hoca2]

yardımcı olacak yok mu arkadaşlar?
a1 hücresindeki bir iki kelimlik başlığı
a2 hücresindeki açıklamanın sonuna kopyalamak istiyorum
lütfen yardım

 

[hamitcan]

Dosya eklerseniz, daha çabuk cevap bulabilirsiniz.

 

[Ahmet Hoca2]

ekte bir örnek dosya gönderiyorum.

 

[hamitcan]

Sub BaşlıkEkle()
    For i = 3 To [b65536].End(3).Row Step 2
        Cells(i, 3) = Cells(i, 2) & Cells(i - 1, 2)
    Next
End Sub

 

[Ahmet Hoca2]

teşekkürler kod çalıştı