Помогите разделить многоуровневые данные в одном столбце

[maksim_serg]

как можно не знать какая операционка на вашем компе
- это виндовс

это мак

- это линукс

перезагрузит компьютер и помсотрите

[Hugo121]

Ну на 95% конечно будет виндовс, но всё равно есть шанс 5% написать код, который не будет работать потому что вдруг мак... Тем более судя по засвеченным сайтам - не похоже что это Россия с виндой...
Смысл зря писать?
Да и что именно нужно получить - это ведь не нам нужно придумывать.

P.S. Почти угадал -
"В минувшем квартале, завершившемся 27 сентября, Apple продала 5,52 млн ПК, в результате чего доля рынка компании превысила 6% и достигла максимального уровня с 1995 года, когда Microsoft стала доминирующим игроком с выходом операционной системы Windows 95."

Как вариант для фильтра, любая система:

Sub tt()
    Dim r As Range, f, d
    Application.ScreenUpdating = False
    For Each r In ActiveSheet.UsedRange.Columns(1).Cells
        Select Case True
        Case Left(r, 12) = "            ": r.Offset(, 4).Resize(, 2) = Array(f, d)
        Case Left(r, 9) = "         ": d = Trim(r)
        Case Left(r, 6) = "      ": f = Trim(r)
        End Select
    Next
End Sub