Email Worksheet - overlapping elements

[Wheelie686]

I need to email a sheet with a Chart, a Picture and tons of formatted text. The problem is that the Chart and Picture seem to overlap the existing cells. Is there a way to correct this without completely revamping the data? I didn't create the document so I'm not sure messing with it too much would be an option.

The current code is as follows:

Private Sub CommandButton4_Click()

Dim cell As Range
Dim strto As String
For Each cell In ThisWorkbook.Sheets("Config and Instructions").Range("C9:C27")
If cell.Value Like "*" Then
strto = strto & cell.Value & ";"
End If
Next cell
If Len(strto) > 0 Then strto = Left(strto, Len(strto) - 1)

'Recipients = strto

Sheets("Gate 3 Initial Outlook").Select

ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Item.To = strto
'.Item.CC = ""
.Item.Subject = "Gate 3 Initial Outlook"
.Item.Send
End With
End Sub

I've attached two pics, one that is from the sheet and one that is how the email comes out looking.