[Iska]

Макрос работает ровно так, как написано, не более. На выложенном Вами примере я такого не наблюдал.

Давайте будем очищать всё ручное форматирование в выделении:

Код:

    Dim i As Long
    
    
    With Selection.Paragraphs
        For i = .Count - 1 To 1 Step -1
            With .Item(i).Range
                .Collapse Direction:=wdCollapseEnd
                .MoveStart Count:=-1
                .Delete
                .InsertAfter " "
            End With
        Next
        
        With .Item(1)
            .Reset
            .Range.Font.Reset
        End With
    End With

Если будет наблюдаться то же самое — начните с исправления стилей в документе, приведя их к потребному виду.