OldSelection = ExtractionArray(1)' This assumes option Base 1
For i = 2 To UBound(ExtractionArray())
    If ExtractionArray(i) = OldSelection Then
        ExtractionArray(i) = ""
        GoTo LOOP_NEXT
    Else
        OldSelection = ExtractionArray(i)
        GoTo LOOP_NEXT
    End If
LOOP_NEXT:
Next
For i = 1 To UBound(ExtractionArray())
    If Len(ExtractionArray(i)) > 0 Then
        Selection.InsertAfter Text:=ExtractionArray(i) & Chr(13)
        Selection.START = Selection.End
    End If
Next