Импорт текста из txt в excel

Sheets("Ваш лист").Cells(RW, i + 1).Value = ARR(i)

Sub MMM()
Application.ScreenUpdating = False
 FL = Thosworkbook.Path & "\КРИМ.txt" ' Ваш конкретный файл
         RW = 1
 
            Open FL For Input As #1
                       Do Until EOF(1)
                                    Line Input #1, WD:
                                    ARR = Split(WD, Chr(9))
                                                  For i = 0 To UBound(ARR) - 1
                                                    Sheets("здесь должно быть имя вашего листа").Cells(RW, i + 1).Value = ARR(i)
                                                    Next
                                      RW = RW + 1
                            Loop
               Close #1
               
   Application.ScreenUpdating = True
   MsgBox "job Complete"
End Sub

Sub macro()
    Dim a, i&, tmp
    a = Split(CreateObject("Scripting.FileSystemObject").Getfile("c:\Users\Igor\Downloads\txt2.txt").OpenasTextStream(1).readall, vbNewLine)
    For i = 0 To UBound(a)
        If Len(a(i)) Then
            tmp = Split(a(i), vbTab)
            If UBound(tmp) > 0 Then
                Cells(i + 1, 1).Resize(1, UBound(tmp) + 1) = tmp
            Else
                Cells(i + 1, 1) = tmp(0)
            End If
        End If
    Next
End Sub

Sub macro2()
    Dim a
    a = Split(CreateObject("Scripting.FileSystemObject").Getfile("c:\Users\Igor\Downloads\КРИМ4.txt").OpenasTextStream(1).readall, vbNewLine)
    Cells(1, 1).Resize(UBound(a) + 1, 1) = Application.Transpose(a)
        Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
        Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
        ), Array(14, 1), Array(15, 1), Array(16, 1)), TrailingMinusNumbers:=True
End Sub

Sub MMM()
Application.ScreenUpdating = False
 FL = ThisWorkbook.Path & "\КРИМ4 .txt"
   RW = 1
            Open FL For Input As #1
                       Do Until EOF(1)
                                    Line Input #1, WD:
                                    ARR = Split(WD, Chr(9))
                                                  For i = 0 To UBound(ARR)
                                                    Cells(RW, i + 1).Value = ARR(i)
                                                    Next
                                      RW = RW + 1
                            Loop
               Close #1
               
   Application.ScreenUpdating = True
   MsgBox "job Complete"
End Sub

Sub macro()
    Dim a, i&, tm, tmp, x&
    a = Split(CreateObject("Scripting.FileSystemObject").Getfile("c:\Users\Igor\Downloads\КРИМ4.txt").OpenasTextStream(1).readall, vbNewLine)
    For i = 0 To UBound(a)
        If Len(a(i)) Then
            tm = Split(a(i), vbTab)
            ReDim tmp(0 To UBound(tm))
            If UBound(tm) > 0 Then
                For x = 0 To UBound(tm)
                    If IsNumeric(tm(x)) Then tmp(x) = --tm(x) Else tmp(x) = tm(x)
                Next
                Cells(i + 1, 1).Resize(1, UBound(tmp) + 1) = tmp
            Else
                Cells(i + 1, 1) = tmp(0)
            End If
        End If
    Next
End Sub