Kopieren in email

Sub mailsenden()
Dim olApp As Object
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
.To = Range("mail").Value
.CC = Range("mailcc").Value
.Subject = "Matrialbestellung"
.Body = "Bitte folgende Bestellung aufgeben:" & Chr(10) & Chr(10) & Chr(10) & _
"Auftragsbezeichnung: " & Range("Auftrag").Value & Chr(10) & _
"Kostenträger: " & Range("Kostenträger").Value & Chr(10) & _
"Bemerkung: " & Range("Bemerkung").Value & Chr(10) & _
"Bitte die Bestellung so planen, das Material bis spätestens " & Range("datum"). _
Value & " vor Ort !" & Chr(10) & Chr(10) & Chr(10) & _
Chr(10) & "HIER KOMMT DIE TABELLE REIN" & Chr(10) & Chr(10) & Chr(10) & Chr(10) &   _
_
_
"Vielen Dank und freundliche Grüße" & Chr(10) & Chr(10) & Chr(10) & _
Application.UserName
.Display
End With
End Sub

    Tabelle1.Range("c13:I" & ActiveSheet.UsedRange.Rows.Count). _
SpecialCells(xlCellTypeVisible).Copy