Below is some code writen for the purpose of learning more about Word VBA. This code eliminates consecutive identical paragraphs -- but it is ugly code. How can I cut this down, by identifying the two paragraphs in the If statement? Please help. Thanks.

Sub Macro1()
Selection.HomeKey Unit:=wdStory
For i = 1 To ActiveDocument.Paragraphs.Count - 1
Selection.Paragraphs(1).Range.Select
Nextpara = Selection.Paragraphs(1).Next
If Selection = Nextpara Then
'Why can't this line incorporate the above two lines? Help!
Selection.Delete
Else
Selection.MoveDown Unit:=wdParagraph
End If
Next i
End Sub