Enviar rango de datos a correo?

Tengo el siguiente código de macro para enviar este rango de datos al correo como imagen en metarchivo mejorado, pero no me funciona. El rango es A1 a K43:

Private Sub CommandButton1_Click()

    Range("A1:K43").Copy

    Set dam = CreateObject("outlook.application").CreateItem(0)

    dam.To = Range("N3").Value

    dam.CC = Range("N4").Value

    dam.Subject = Range("N2").Value

    dam.Display

    'Application.SendKeys "^v"

    Application.Wait Now + TimeValue("00:00:01")

    SendKeys "^{home}", True

    DoEvents

    SendKeys "%nvo", True

    DoEvents

    SendKeys "{UP}", True

    DoEvents

    SendKeys "{UP}", True

    DoEvents

    SendKeys "{ENTER}", True

    SendKeys "{UP}", True

    SendKeys "{ENTER}", True

    Set dam = Nothing

End Sub