Verİlerİ Siralama Hk

[mraltin]

Arkadaslar elimde bir text belge var ve bu belgedeki bilgileri excele almak istiyorum.fakat soyle text belgede ornegin;
Basbakan
R.Tayyip ERDOGAN gibi yazmakta benim istedigim bunu excele alip a sutununda basbakan B sutununda erdogan gibi yanyana siralamak istiyorum.Bu mumkunmudur?
Saygilarimla

 

[veyselemre]

Sub verial()
dosya = "C:\Documents and Settings\Administrator\Desktop\a.txt"
Open dosya For Input As #1
sat = 1
Do While Not EOF(1)
    Line Input #1, TextLine
        sut = sut + 1
        
        If sut = 3 Then
            sat = sat + 1
            sut = 1
        End If
        Cells(sat, sut) = TextLine
Loop

Close #1
End Sub