Manchmal möchte man nicht die gesamte Arbeitsmappe,
sondern nur eine Tabelle versenden.
Dieses Beispiel demonstriert, wie einfach es ist.

Die Routine kopiert Tabelle1 in eine neue Arbeitsmappe,
versendet diese und schließt sie anschließend ohne Speicherung:

Sub Blatt_senden()
    Sheets("Tabelle1").Copy
    ActiveWorkbook.SendMail "[email protected]", "Betreffzeile"
    Application.DisplayAlerts = False
    ActiveWindow.Close
    Application.DisplayAlerts = True
End Sub