Komplette Daten aus Tabelle ziehen

Hallo,
ich habe folgendes Problem: ich möchte aus einer Excel-Tabelle Daten per E-Mail versenden.  _
Folgendes habe ich hinter dem jeweiligen CommandButton hinterlegt:

Private Sub CommandButton1_Click()
Dim Outlook As Object, Mail As Object, Wiederholungen, Ablage As DataObject, _
Nachricht, Bereich As Range, Empfänger As String, Betreff As String
Empfänger = Sheets("Liste").Range("G69").Value
Betreff = "Offene ToDo"
If Betreff = "" Then Exit Sub
For Wiederholungen = 1 To 1
Set Ablage = New DataObject
Set Outlook = CreateObject("Outlook.Application")
Set Nachricht = Outlook.CreateItem(0)
Set Bereich = Application.InputBox("Wählen Sie den Bereich aus Sie den versenden möchten", Type: _
_
=8)
Range(Bereich.Address).Select
Selection.Copy
With Nachricht
.Subject = Betreff
Ablage.GetFromClipboard
.Body = Ablage.GetText(1)
.To = Empfänger
.Display
End With
Set Outlook = Nothing
Set Nachricht = Nothing
Next Wiederholungen
End Sub 
Bis auf eine Kleinigkeit funktioniert es auch super. Ich klicke auf den Button und werde  _
lediglich nach dem zu versendenden Bereich gefragt. Nachdem ich den eingegeben oder
markiert habe wird mir die
versandbereite Email angezeigt. Leider werden meine kompletten Daten nur als Text ausgegeben ( _
was natürlich an dem Befehl ".Body = Ablage.GetText(1)" liegt).
Wie kann ich es realisieren, dass meine Tabelle als zuvor definierter Bereich im  _
Ursprungsformat in meine E-Mail übertragen wird?
Vielen Dank für Eure Hilfe
Beste Grüße