Makro koduyla hücreleri birleştirmek

[mersilen]

Merhabalar
Telf rehberini dışarıya cvs dosyası olarak aldım.
Bunu aşağıdaki şekilde excele çevirdim

http://www.excel.web.tr/f48/csv-uzantyly-dsoyayy-xls-evirme-hk-t61898.html
http://www.excel.web.tr/f135/excel-makrolary-t58047.html

deneme sayfasındaki gibi oldu.
Bunu sayfa 1 deki şekilde olduğu gibi excel hücrelerine dağıttım.Buraya yeni değerler ekledim.
Şimdi sayfa2 ye tekrar deneme sayfasındaki gibi a sütununa verileri birleştirmek istiyorum.sonra tekrar cvs dosyasına çevirip telefona atacağım.
Aşağıdaki kodu nasıl düzenlemem gerekir.

Sub aktar()
Dim i, x As Integer
Dim y As String

For i = 1 To 10
For x = 1 To 55
y = y & Worksheets(Sayfa1).Cells(i, x).Value
Next x
Cells(i, 1).Value = y
Next i

End Sub

 

[mersilen]

Sorunu çözdüm

Sub aktar()
Dim i, x As Integer
Dim y As String
Range("A1", "bc10") = Clear

For i = 1 To 10
For x = 1 To 55
If Worksheets("Sayfa1").Cells(i, x).Value = "" Then GoTo atla
y = y & ";" & Worksheets("Sayfa1").Cells(i, x).Value
Next x
Cells(i, 1).Value = y
y = ""
Next i

atla:
End Sub

Yalnız csv ye çevirip tlf yüklemede halen sorun var