Macro para envio de range filtrado em corpo do email

[Peeko]

Prezados, Preciso de ajuda com um código de macro do Excel. Bom, em resumo o que precisa fazer é o seguinte, enviar um texto, com parte de uma planilha no corpo do e-mail, porém não todos os campos do range, mas somente aqueles filtrados. O código é o seguinte:

Sub Envia()

Dim OutApp As Object

Dim OutMail As Object

Dim texto As String

Dim mail As String

Dim rng As Range

 

Set OutApp = CreateObject("Outlook.Application")

Set OutMail = OutApp.CreateItem(0)

 

mail = ActiveSheet.Cells(2, 2)

Selection.AutoFilter Field:=3, Criteria1:="x"

 

With OutMail

.To = mail

.Subject = "Atualização Documentos de Homologação"

.Body = "Prezados," & vbCrLf & vbCrLf & "Favor encaminhar a documentação abaixo requerida, até o prazo de " & ActiveSheet.Cells(6, 3) & ":"

.Display

End With

 

Selection.AutoFilter Field:=3

End Sub

 

Como podem ver, a programação acaba no momento que coloca a data limite, e logo na linha abaixo do texto preciso que seja colado o range filtrado que se encontra entre A10:B25. Alguém pode me ajudar a fechar este código? Eu já fiz isso uma vez, mas não consigo lembrar como eu montei o código, e perdi o meu arquivo para checar.

 

Obrigado,

Diogo