well I took a shot at it - see if it works

Code:
Sub Macro1()
    Dim i As Integer
    
    Selection.HomeKey Unit:=wdStory
    i = 1
    
    Do While i < ActiveDocument.Paragraphs.Count
        Selection.Paragraphs(i).Range.Select
        Nextpara = Selection.Paragraphs(i).Next
        
        If Selection = Nextpara Then
            Selection.Delete
        Else
            i = i + 1
        End If
    Loop
End Sub