VBA Excel - Enviar dois intervalos de uma planilha por email

[Larissa Souza]

Olá! Estou precisando de uma ajuda.

Gostaria de enviar no corpo de email dois intervalos diferentes de uma mesma planilha, por exemplo, D5:F7 e abaixo A1:D1.

Consegui enviar o email com um intervalo único através deste código que encontrei na internet:

 

Sub enviar_corpo_email()
   ActiveSheet.Range("D5:F7").Select
   ActiveWorkbook.EnvelopeVisible = True
   With ActiveSheet.MailEnvelope
      .Introduction = ""
      .Item.To = "email para envio"
      .Item.Subject = "Título Assunto"
      .Item.Send
   End With
End Sub

Porém, não consigo modificar para enviar da maneira que preciso.