Delete line in word

[rocket0612]

Hi, I have written a small macro that pulls data from excel to populate a letter with data (eg name, address, and some selected paragraphs). here is an example of my code:

wordarray = Array(addressline1, addressline2, addressline3, addressline4, postcode, Policynumber, Yourref, ourref, date, salutation, para1, para2, para3, para4, signed, position) 
 
wrd.Activedocument.Fields(1).Select
    With wrd.Selection
    .InsertAfter Text:=Addressee
    End With
 
   For wrdroutine = 0 To 15
    wrd.Selection.NextField.Select
    With wrd.Selection
    .InsertAfter Text:=wordarray(wrdroutine)
    End With
 
Next
    
    End

My problem is, sometimes para1 may not be applicable, and the same for the rest of the paragraphs. So I could have a letter that will have para2, para3 & para5. This will leave blank spaces were para1 & para4 are. Is there a way so that if para = "" (in this case para1 & para4) then it will delete that line where that are supposed to be input and the one below to bring the text up so there will not be 3 blank lines between the next paragraph entere don the letter?

I hope this makes sense!

many thanks