Hi

Try this one.

Code:
Option Explicit

Sub kTest()
    
    Dim v, i As Long
    
    Const TextFilePath = "C:\test.txt"   '<<< adjust to suit
    Const FixDelim = ";;;;;;"
    
    v = Split(CreateObject("scripting.filesystemobject").opentextfile(TextFilePath).readall, "%")
    
    For i = 1 To UBound(v)
        v(i) = FixDelim & v(i)
    Next
    
    With Range("a1").Resize(UBound(v) + 1)
        .Value = Application.Transpose(v)
        .TextToColumns .Cells(1), xlDelimited, , , , True
        .WrapText = False
    End With
    
End Sub