üç sutunu bir sütuna taşımak

[ynmcan]

Merhaba arkadaşlar;
Üç ayrı sütunda bulunan isimleri ( bu sütunlarda birden fazla olan isimler silinmeden) bir sutuna taşımak istiyorum.
Forumda bulduğum bir çok kod ve fonksiyonu dosyama uyarladım ama bir türlü birden fazla olan isimleri silmeden tek sutuna taşıyamadım. Yardımcı olursanız sevinirim.
Geniş açıklama örnek dosyada.

 

[uzmanamele]

merhaba

bu kod işinizi görür mü?

Sub SutunlarıBirlestir()
a_son = Cells(65536, 1).End(3).Row
f_son = Cells(65536, 6).End(3).Row
ı_son = Cells(65536, 9).End(3).Row

For i = 8 To a_son
Cells(i, 16) = Cells(i, 1)
Next
For j = 8 To f_son
Cells(j + a_son - 7, 16) = Cells(j, 6)
Next
For k = 8 To ı_son
Cells(k + a_son + f_son - 14, 16) = Cells(k, 9)
Next
End Sub

 

[ynmcan]

Sn. UZMANAMELE;
Hazırlamış olduğunuz kodu asıl dosyama hiçbir değişiklik yapmadan ekleyip denedim ve kusursuz çalıştı. Katkınız ve emeğiniz için teşekkür ederim.