Visual Basic Selecionar um Range e enviar junto com anexo

[Cleomirfl]

Bom dia Pessoal!

 

Precisando de uma ajuda aí em VBA, seguinte: Tenho um código atribuído em um botão na planilha do excel entitulada Ordem de carregamento FGDd, funciona normal esse código...ele seleciona um range e converte para .pdf e logo em seguida abre uma nova mensagem no outlook para enviar...beleza..funciona...o que eu estava querendo melhorar ele é no seguinte:

Depois que o código convertesse para .pdf e anexasse essa range no outlook, ele copiasse e colasse uma nova range (B36:K60)no corpo do mesmo email, entende?

ou seja, gostaria de acrescentar algumas linhas nesse código para selecionar mais um range (B36:K60) e colocar no corpo do email;

 

Disponibilizo o código que uso atualmente....ele funciona bem, mas gostara de dar um "upgrade" ...

Sub email()
  
  Dim rng As Range
  Dim OutApp As Object
  Dim OutMail As Object
  Dim intervalo As Range
    
  Set intervalo = Planilha1.Range("B36:K60")
  intervalo.Copy
  Para = "[email protected]" 'destinatátio de email
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
  "Y:\02 - Controle de Operação\" & [B1] & ".pdf" ' Caminho onde se encontra o arquivo a ser convertido - Célula B1(Nome da planilha)
  File = "Y:\02 - Controle de Operação\Ordem de coleta de carga.pdf"
  Set rng = Nothing
  On Error Resume Next
  Set rng = Range("A1:K33").SpecialCells(xlCellTypeVisible)
  On Error GoTo 0
  Set OutApp = CreateObject("Outlook.Application")
  Set OutMail = OutApp.CreateItem(0)
  On Error Resume Next
  With OutMail
      
    .To = Para
    .Subject = "Relatório Diário de Produção Belocal Rio  " & Format(Now, "dd/mmm/yyyy")
    .Attachments.Add File
    .Display
  End With
  On Error GoTo 0
    With Application
    .EnableEvents = True
    .ScreenUpdating = True
  End With
  Set OutMail = Nothing
  Set OutApp = Nothing
  
  ActiveWorkbook.Save
  
End Sub

Está salvo como pasta de trabalho sem macro porque não consegui anexar a que está habilitada...mas a que uso está habilitada.

Ordem de carregamento FGDd.xlsx