VBA Exel - Código para enviar por email dois Ranges de uma mesma planilha

[Laaariii]

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.

[Basole]

Experimente testar o codigo com essas alterações, pois não tenho o outlook instalado aqui par testar. 

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