Enviar desde excel correo con información desde celdas

Mi macro guardad la hoja y conviene en pdf y luego la envía por outlook

En nombre se lo da de una celda y todos los datos en están en celda

Sub enviar_correo()
'aneudys "pushyman"
Application.DisplayAlerts = False
ruta = ActiveWorkbook.Path & "\"
mio = ActiveWorkbook.Name
cliente = Range("D5").Value
correo = "[email protected]"

asunto = Range("D7").Value

texto = Range("D58Value & Range("D9").Value
nombre = cliente

Sheets("hoja1").ExportAsFixedFormat Type:=xlTypePDF, Filename:=ruta & nombre

Set parte1 = CreateObject("outlook.application")
Set parte2 = parte1.createitem(olmailitem)

parte2.To = correo
parte2.Subject = asunto
parte2.Body =texto
parte2.attachments.Add ruta & nombre & ".pdf"

parte2.display

End Sub

Sino quiere visualizar el correo solo cambia este parte

Parte2. Display por estas parte2. Send

Realmente me fue de mucha utilidad para adaptarla a una necesidad puntual!

Solo le agregue un salto de párrafo :-)

texto = Range("D58Value & vbCrLf &  Range("D9").Value