Remove blank lines

[josros60]

I have form and code below, how can I modify the code automatically remove blank lines that I don't use when emaling,

code:

Sub Send_Range()
   ' Select the range of cells on the active worksheet.
   ActiveSheet.Range("A1:D31").Select
   
   ' Show the envelope on the ActiveWorkbook.
   ActiveWorkbook.EnvelopeVisible = True
   
   ' Set the optional introduction field thats adds
   ' some header text to the email body. It also sets
   ' the To and Subject lines. Finally the message
   ' is sent.
   With ActiveSheet.MailEnvelope
      .Introduction = ActiveSheet.Range("APPLY") '"Please apply the payment to our account or invoice(s) listed below."
      .Item.To = ActiveSheet.Range("B4")
      .Item.CC = ActiveSheet.Range("B5") & ";" & "navigata.ap@distributel.ca"
      .Item.Subject = ActiveSheet.Range("EFT") '"Wire Remittance $"
      .Item.body = ActiveSheet.Range("EFT")
      .Item.Display
      
   End With
   
End Sub

 

[Yongle]

Would hiding the rows work ?

below ActiveSheet.Range("A1:D31").Select

Dim cel As Range
For Each cel In Range("A10:A31")
    If cel = "" Then cel.EntireRow.Hidden = True
Next

 

[Yongle]

Just spotted that I omitted ActiveSheet.Range("A10:A31") in post#2

Would selecting a different range work ?
(I assume that there is nothing else in the range apart from the space for more items)

Replace

ActiveSheet.Range("A1:D31").Select

With

ActiveSheet.Range("A1:A" & ActiveSheet.Range("A8").End(xlDown).Row).Resize(, 4).Select

 

[josros60]

Thank you. it worked.