Tengo un archivo que se genera con una tabla dinámica,como enviarla como valores por outlook.

Tengo un archivo que se genera con una tabla dinámica, mi duda es como puedo mediante la misma macro convertir el archivo en valores para quitar la tabla dinámica para que no vean los demás datos antes de ejecutar la macro enviar por outlook.

Gracias.

Sub WorksheetLoop2()
'Seleccionamos libro actual y se genera un loop para que ejecute la macro en cada hoja
Dim Current As Worksheet
For Each Current In Worksheets
Dim attBook$
attBook = Environ("temp") & "\" & Current.[A4] & ".xlsx"
Current.Copy
If Dir(attBook) <> "" Then Kill attBook
With ActiveWorkbook
.SaveAs Filename:=attBook, FileFormat:=51
.Close False
'Una vez generado el reporte y guardada lo hoja temporalmente generemos el mail
End With
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = Current.[a1]
.CC = Current.[a2]
.BCC = ""
.Subject = Current.[A3]
.Body = "Buen dia se adjunta Reporete de ventas 2016"
.Attachments.Add attBook
'Si el proceso no detecta mail en la celda A1 regresa un mail al emisor con el Error para que el mail sea enviado nuevamente
If .To = "" Then
.To = "[email protected]"
.Body = "Error, no se ha asignado un mail para "" " & Current.[A4]
End If
.send
End With
Set OutMail = Nothing
Set OutApp = Nothing
'Generamos un aviso de que el proceso termino
Next
MsgBox "Informes de ventas 2016 generados y enviados"" " & Date
End Sub