Перенос текста из файла в Эксел

[SAS888]

Весь текст я копирую (9 строчек текста с пробелами) и вставляю в excel...

Предлагаю не копировать, вставлять и корректировать, а сразу делать то, что нужно. Т.е. запускать макрос, который будет читать txt-файл и вставлять его куда угодно и как Вам угодно. Например, такой:

Sub ReadTxt()
    Dim s As String, myPath As String, ts, a: Application.ScreenUpdating = False
    myPath = ThisWorkbook.Path & "\" & "test.txt" 'Подставьте свой путь к txt-файлу
    Set ts = CreateObject("Scripting.FileSystemObject").OpenTextFile(myPath, 1)
    s = Replace(ts.ReadAll, vbCrLf & vbCrLf, "|"): s = Replace(s, vbCrLf, " ")
    a = Split(s, "|"): Range([A1], Cells(UBound(a) + 1, 1)).Value = Application.Transpose(a)
End Sub

Пример использования во вложении. Откройте файл "Книга1.xls" и запустите макрос "ReadTxt". Текстовый файл должен находиться в той же папке.