hei,

der Text in der Text-datei ist ohne Punkte, aber kopiere dir mal diesen code in ein neues Modul.

Public Sub Text_einfügen()
    Dim c1 As Variant, c2 As Variant, i1 As Long, i2 As Long, Ganzer_text As String, z As Long, s As Long
    
    Ganzer_text = Aus_zwischenablage
    
    Application.ScreenUpdating = False
    
    c1 = Split(Ganzer_text, vbNewLine)
    For i1 = LBound(c1) To UBound(c1)
        s = 1: z = z + 1
        c2 = Split(c1(i1), Chr(9))
        For i2 = LBound(c2) To UBound(c2)
            If i1 = 0 Then
                Cells(z, s) = c2(i2)
            Else
                Cells(z, s) = c2(i2) * 1
                
                Select Case i2
                    Case Is = 0
                        Cells(z, s).NumberFormat = "00.00"
                    Case Is = 1
                        Cells(z, s).NumberFormat = "0.0000"
                    Case Is = 2
                        Cells(z, s).NumberFormat = "0.0000"
                    Case Is = 3
                        Cells(z, s).NumberFormat = "0.00000"
                    Case Is = 4
                        Cells(z, s).NumberFormat = "0.00000"
                    Case Is = 5
                        Cells(z, s).NumberFormat = "0.00000"
                End Select
            End If
            s = s + 1
        Next i2
    Next i1
    
    With Range("A:F")
        .Columns.AutoFit
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With
    
    Application.ScreenUpdating = True
End Sub

Public Function Aus_zwischenablage() As String
    Dim IE As Object
    'Dim CLP As String
    On Error Resume Next
    Set IE = CreateObject("HTMLfile")
    Aus_zwischenablage = IE.ParentWindow.ClipboardData.GetData("text")
    'MsgBox CLP
    Set IE = Nothing
End Function

Dann zuerst wieder deine Werte in in die Zwischenablage kopieren und dann das Sub "Text_einfügen" ausführen.

Achtung der code fügt die Werte in das aktuelle Tabellenblatt ein.