Error with VBA to copy data from txt file to excel

[uhd04]

Hi,

i have a report created in txt using a powershell script and i'm trying to import data from report to excel using QueryTable. The report is similar to this but have much more rows

Cluster	Name	Node	State
-------	----	----	-----
Server1	Cluster Disk	Server1-nodeA	Online
Server1	Cluster IP Address	Server1-nodeA	Online
Cluster	Name		Node	State
-------	----		----	-----
Server2	Disk D:		Server2-nodeA	Online
Server2	Disk E:		Server2-nodeA	Online
Server2	DiskF:		Server2-nodeA	Online
Server2	IP Address		Server2-nodeA	Offline
Server2	Server Services		Server2-nodeA	Offline
Server2	Network Name		Server2-nodeA	Online
Server2	Spooler		Server2-nodeA	Online
Server2	Communiquez ABCDEF Service	Server2-nodeA	Online
Server2	Nettoyant Analyse Notice Look-up Service	Server2-nodeA	Online

<tbody>
</tbody>

And when i import it using vba to excel it comes up like this (Bold are the errors occurred while importing data)

Cluster	Name	Node	State
-------	----	----	-----
Server1	Cluster Disk	Server1-nodeA	Online
Server1	Cluster IP Address	Server1-nodeA	Online
Cluster	Name	Node State
-------	----	---- -----
Server2	Disk D:	Server2-nodeA O	nline
Server2	Disk E:	Server2-nodeA O	nline
Server2	Disk F:	Server2-nodeA O	nline
Server2	IP Address	Server2-nodeA O	ffline
Server2	Server Services	Server2-nodeA O	ffline
Server2	Network Name	Server2-nodeA O	nline
Server2	Spooler	Server2-nodeA O	nline
Server2	Communiquez ABCDEF Ser	vice Server2-no	deA Online
Server2	Nettoyant Analyse Notice L	ook-up Service S	erver2-nodeA Online

<tbody>
</tbody>

the QueryTable i'm using is

Sub ImportReport()
    
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;c:\CluterReport.txt", Destination:=Range( _
        "$A$1"))
        .Name = "CluRes_Log"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 1252
        .TextFileStartRow = 1
        .TextFileParseType = xlFixedWidth
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1)
        .TextFileFixedColumnWidths = Array(14, 15, 19, 24)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

So could someone please advise on what i should change/update in my code or if there is another efficient way that i get the report like the below, i mean all columns are imported properly. Thanks

Cluster	Name	Node	State
-------	----	----	-----
Server1	Cluster Disk	Server1-nodeA	Online
Server1	Cluster IP Address	Server1-nodeA	Online
Cluster	Name	Node	State
-------	----	----	-----
Server2	Disk D:	Server2-nodeA	Online
Server2	Disk E:	Server2-nodeA	Online
Server2	DiskF:	Server2-nodeA	Online
Server2	Virtual IP Address	Server2-nodeA	Offline
Server2	Virtual Server Name	Server2-nodeA	Offline
Server2	Network Name	Server2-nodeA	Online
Server2	Spooler	Server2-nodeA	Online
Server2	Communiquez ABCDEF Service	Server2-nodeA	Online
Server2	Nettoyant Analyse Notice Look-up Service	Server2-nodeA	Online

<tbody>
</tbody>