Formulu Makroya Çevirme

[askm]

Kolay gelsin.
Aşağıdaki gibi bir formul ile yapılan işlemi makro ile nasıl sağlarım. Yalnız .Formula ile değilde döngü ile yapmak istiyorum.
Yani yapmak istediğim A sütununda ilk 4 harfi "Soru" kelimemesi olan hücre ile alt hücreyi veri olarak birleştirmek.Tek satır yapmak. Birleştirilen alt hücreyi de silmesi gerek.

EĞER(SOLDAN(A1;4)="Soru";BİRLEŞTİR(A1;A2);A1)


Teşekkürler.

 

[PLİNT]

Merhaba
Aşağıdaki gibi denermisiniz?

Private Sub CommandButton1_Click()
For a = 1 To Cells(Rows.Count, "A").End(3).Row
If LCase(Left(Cells(a, 1), 4)) = LCase("soru") Then
Cells(a, "b") = Cells(a, "a") & " " & Cells(a + 1, "a")
Cells(a + 1, "a") = ""
a=a+1
Else
Cells(a, "b") = Cells(a, "a")
End If
Next
End Sub

 

[askm]

Teşekkürler.