Verileri Txt dosyasına aktarma

[sukru.bulut]

Selamun Aleyküm.
Elimde Tablo halinde veriler var. Bunları TXT dosyasına aktarmak istiyorum. Her bir hücre arasına "," ( virgül ) koyarak. Tablo ise
A.............B.............C......................D................E.................F..................G..............H................I
1 ...........................................................JENERATÖR LİSTESİ......................................................
2 Birimi Markası M.Markası Modeli Alt. Panel Güç Seri No Açıklama
3
4
5


1. Satır da A ile I sütunu hücre birliştirilmiş ve Başlık var
2. Satırda Her bir sütuna gelecek şekilde Sıra No, Birimi Markası vs var
A3 satırından başlıyor veriler yakaşık 1000 satır kadar ve yeni eklemeler yapılıyor.

Bu tablomu TXT dosyasına aktarmak istiyorum. TXT dosyasıda aşağıdaki gibi sıra ile gidecek

1-Birimi,Markası,M.Markası,Modeli,Alt No,Panel,Güç,Seri No,Açıklama
2-Birimi,Markası,M.Markası,Modeli,Alt No,Panel,Güç,Seri No,Açıklama
3-Birimi,Markası,M.Markası,Modeli,Alt No,Panel,Güç,Seri No,Açıklama


Yardımcı olabilirmisinz acaba. Teşekkürler

 

[Haluk]

Sub Test()
    'Haluk - 02/01/2020
    'sa4truss@gmail.com
    '
    Dim NoA As Long, i As Long, FileNum As Long
    Dim myFile As String, myStr As String
    
    NoA = Range("A" & Rows.Count).End(xlUp).Row
    FileNum = FreeFile
    myFile = ThisWorkbook.Path & Application.PathSeparator & "Log.txt"
    
    Open myFile For Output As #FreeFile
        For i = 3 To NoA
            myStr = Empty
            For j = 1 To 9
                myStr = myStr & Cells(i, j) & ","
            Next
            Print #FileNum, Left(myStr, Len(myStr) - 1)
        Next
    Close #FileNum
    
    MsgBox "İşlem tamam..."
End Sub

.

 

[sukru.bulut]

elinize sağlık çok teşekkürler.