Enviar email a traves de excel

Quiero enviar un email creo el email, el asunto, cc, y le pongo un detalle en el cuerpo, pero desea agregar lo que tengo en el rango b33:G51 y agregar la firma usando el outlook y no se como hacer les paso el codigo
Sub Email()
Dim olApp As Object, olMail As Object
Dim strToAddress, strSubject1, strBody, strSubject2, strToAddressCopy As String
strToAddress = "" '' correo
strSubject1 = "" '' Mensaje
strBody = "" '' Asunto
strSubject2 = ""
strToAddressCopy = ""
strToAddress = Range("B24").Value
strSubject1 = "Buenos días les envió el detalle de los gastos del mes de Junio para la confección de la Nota de Crédito"
strSubject2 = Range("B31:G44").Select
strBody1 = Range("B29").Value
strToAddressCopy = "natalia@hot mail.com;[email protected]"
'Range("B31:G44").Select
'Selection.Copy
'Range("B47").Select
Set olApp = CreateObject("Outlook.Application")
Set olMail = olApp.CreateItem(0)
With olMail
.To = strToAddress
.CC = strToAddressCopy
.Subject = strBody1
.Body = strSubject1 & Chr(13) & Chr(13) & strSubject2
'.Body = strSubject2
End With
olMail.Display
end sub