A macro can help you here.

Option Explicit
Sub txtVideoFile()
 Dim sFile As String
 Dim FileNum As Integer
 Dim TotalFile As String
 Dim Lines, i As Long, n As Long

 sFile = "C:\Users\Mike\Desktop\Video.txt" '<-- Adjust to you txt files path

 FileNum = FreeFile

 Open sFile For Binary As #FileNum
 TotalFile = Space(LOF(FileNum))
 Get #FileNum, , TotalFile
 Close #FileNum
    
 Lines = Split(TotalFile, ",")
 
 For i = 0 To UBound(Lines) - 1 Step 9
    n = n + 1
    With Cells(n, 1).Resize(, 9)
        .Value = Array(Lines(i), Lines(i + 1), Lines(i + 2), Lines(i + 3), Lines(i + 4), Lines(i + 5), Lines(i + 6), Lines(i + 7), Lines(i + 8))
    End With
 Next
End Sub