Makroyla birleştirme

[marimar]

merhaba arkadaşlar ekteki dosyada olduğu gibi a sütununda isim b sütununda soyisim bulunmakta.birleştir butonuna basınca e sütununa isim ve soyisim olarak birleştirmek istiyorum.tümü için ayrı ayrı kod yazmak yerine daha kolay bir yolu var mı.
teşekkürler

 

[Skorpiyon]

Sayın marimar,

Kodlarınızı aşağıdakiler ile değiştirin.

Private Sub CommandButton1_Click()
For a = 3 To WorksheetFunction.CountA(Worksheets("Sayfa1").Range("A1:A65536")) + 1
Cells(a, 5) = Cells(a, 1) & " " & Cells(a, 2)
Next a
End Sub

Saygılarımla...