Перенос данных из файла .txt в таблицу Excel - VB

Option Explicit

Sub QWERT()
Dim A, NAME, i, j, s() As String, RZ, R
NAME = ActiveWorkbook.Path & "\откуда.txt"
A = Split(CreateObject("Scripting.FileSystemObject").Getfile(NAME).OpenasTextStream(1).ReadAll, vbNewLine)
    Cells.ClearContents
    For i = 0 To UBound(A) - 1
    RZ = ""
        Do While InStr(A(i), "  ") > 0
            A(i) = Replace(A(i), "  ", " ")
        Loop
        s = Split(A(i), "'")
        If IsNumeric(s(0)) Then
        R = R + 1
        Cells(R, 1) = s(3)
        Cells(R, 2) = s(5)
        Cells(R, 3) = s(9)
        Cells(R, 4) = s(10)
        Cells(R, 5) = s(11)
        
'        RZ = s(3) & " " & s(5) & " " & s(9) & " " & s(10) & " " & s(11)
'            Debug.Print RZ
        End If
    Next
End Sub