Macro que salva tabela dinamica em diretório e envia por e-mail como anexo

Prezados, boa tarde!

Preciso de uma ajuda.

Preciso enviar resultados consolidados para uma lista de e-mails.

Tenho uma tabela dinâmica e os resultados a serem enviados são "explosão" de um campo de somatório da tabela. Ao explodir o campo, gero uma nova aba, copio essa aba para uma nova pasta, salvo em um diretório e anexo no corpo do e-mail com destinatário de uma lista.

Estou tendo problema, pois a tabela dinamica e a aba criada mudam de nome, preciso de uma macro que não associe a plan da tabela dinâmica a uma nome.
Meu código até o momento é esse:
[code=vb]
Sub Alvorada()
Dim MyOlapp As Object, MeuItem As Object
Set MyOlapp = CreateObject("Outlook.Application")
Set MeuItem = MyOlapp.CreateItem(olMailItem)
With MeuItem
Range("D8").Select
Selection.ShowDetail = True
Range("Tabela6[[[HASHTAG]#Headers[/HASHTAG]],[Rótulos de Linha]]").Select
Sheets("Plan10").Select
Sheets("Plan10").Copy
ActiveWorkbook.SaveAs Filename:="C:\Users\pfsilva\Desktop\Pasta3.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
.to = ([EMAIL='ccc@caixa.gov.br']ccc@caixa.gov.br [/EMAIL])
.cc = ([EMAIL]ccc@aaa.com[/EMAIL])
.Subject = "Avaliação de Fornecedores – Alvorada Mangueiras"
.Body = "Prezado," & vbCrLf & _
"Segue em anexo notificação de Fornecedor." & vbCrLf & _
"AAA " & _
"Atenciosamente, " & vbCrLf & _
Plan1.[D2].Value
.Attachments.Add "C:\Users\pfsilva\Desktop\export.XLSX"
.Attachments.Add "C:\Users\pfsilva\Desktop\Pasta3.xlsx"
.Display
End With
End Sub
[/code]
Obrigada!