Macro para enviar correo (para Dam)

Tengo esta macro de Dam, pero no se como puedo hacer para que seleccione un rango y lo envíe dentro una hoja determinada y lo envíe en el mail, además de agregar un msg en caso de error en el envío.

Sub correo()

Set dam = CreateObject("outlook.application").createitem(0)
ActiveWorkbook.Save
dam.SentOnBehalfOfName = "[email protected]"
dam.To = Range("A31").Value
dam.CC = Range("B31").Value
'dam.BCC = Range("B6").Value
dam.Subject = Range("C31").Value
dam.body = Range("D31").Value
'dam.Attachments.Add Range("B9").Value
dam.send
MsgBox "Correo enviado correctamente"
End Sub

Favor su ayuda.