Pegar tabla de excel a cuerpo de correo mediante VBA

Tengo el siguiente código el cual necesito pegar una tabla que varia sus renglones y enviarlo por correo

Sub Email_M()
Dim OLApp As Outlook.Application
Dim OLMail As Object
Sheets("M").Copy
ActiveWorkbook.Application.DisplayAlerts = False
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\M" & Format(Now, " dd-mmmm-yy hh-mm") & ".xlsx"
Set OLApp = New Outlook.Application
Set OLMail = OLApp.CreateItem(0)
OLApp.Session.Logon
With OLMail
.To = "[email protected]"
.CC = ""
.BCC = ""
.Subject = "M" & Format(Now, " dd-mmmm-yy hh-mm")
.Body = ""
.Attachments.Add (ThisWorkbook.Path & "\M" & Format(Now, " dd-mmmm-yy hh-mm") & ".xlsx")
.Display
End With
ActiveWorkbook.Close SaveChanges:=True
Kill ThisWorkbook.Path & "\M" & Format(Now, " dd-mmmm-yy hh-mm") & ".xlsx"
Set OLMail = Nothing
Set OLApp = Nothing
End Sub