Pasting Multiple Ranges Into Outlook Using Excel VBA

I'm currently using Ron's BuildToHTML Coding in "Example 1" (as can be seen here: [Code] ....... ) but I'm unable to tweek the coding to paste multiple ranges into the same outlook body.

For clarification, I have 2 charts in different tabs: Sales & Purchases. Following Ron's code I can change the coding so it copies Sales but I am unable to code the macro to paste the Purchases chart in the same outlook directly below Sales.

Sub Mail_Selection_Range_Outlook_Body()
' Don't forget to copy the function RangetoHTML in the module.
' Working in Office 2000-2010
Dim rng As Range
Dim OutApp As Object
Dim OutMail As Object

[code].....