Pessoal, preciso que modifiquem essa macro... Em que pego um range e colo no corpo do email.

   
Sub enviar_corpo_email()
    
   Worksheets("E-mail WR Proposta | Diretoria").Range("A1:J154").Select

   ActiveWorkbook.EnvelopeVisible = True


With ActiveSheet.MailEnvelope

      .Introduction = “”

      .Item.To = “seuEmail@exemplo.com”

      .Item.Subject = “Título Assunto”

      .Item.Send

   End With

End Sub

Não consigo anexar um arquivo PDF.
Mesmo colocando o diretório e "'.Attachments.Add (Diretorio1)"

Se puderem me ajudar, ficaria muito agradecido