Enviar por mail rango de datos de excel

Tengo el siguiente código para enviar mail desde excel, el problema es que el cuerpo del correo aparece en la parte de abajo del rango de datos que pegue desde excel, por lo que tengo que cortar y pegar el cuerpo del correo desde el final hasta el principio. ¿Puede lograrse desde el inicio?.

Sub Enviomail()
A = [B3].Value
B = [B4].Value
C = [B5].Value
D = [B6].Value
Range("A8:B32").Select
Range("A8:B32").Copy
Set parte1 = CreateObject("outlook.application")
Set parte2 = parte1.createitem(olmailitem)
parte2.To = A
parte2.CC = B
parte2.Subject = C
parte2.body = D
parte2.display
Set parte1 = Nothing
Set parte2 = Nothing
Application.SendKeys "^v"
End Sub