Oprette flere mails - VBA

Hej alle,

Jeg har fundet og tilrettet nedenstående kode som egentlig blot opretter en mail og kopiere ind indhold ind.
Jeg forsøger nu, at få den til at oprette 2 mails med hver deres indhold og hver deres modtagere.
Men jeg kan simpelthen ikke finde ud af, hvordan jeg løser dette.

Kan i hjælpe?

Koden kommer her:
Sub Knap1_Klik()

Dim outlook As Object
Dim newEmail As Object
Dim xInspect As Object
Dim pageEditor As Object

Set outlook = CreateObject("Outlook.Application")
Set newEmail = outlook.CreateItem(0)

With newEmail
    .To = Worksheets("Attended").Range("P2").Text
    .CC = Worksheets("Attended").Range("P3").Text
    .BCC = ""
    .Subject = "Forventet salg til produktion i morgen"
    .Body = "Her er det forventet salg til produktion i morgen" & vbCrLf & "Mailen er vejledende"
    .Display

    Set xInspect = newEmail.GetInspector
    Set pageEditor = xInspect.WordEditor

    Worksheets("Attended").Range("P5:Q10").Copy

    pageEditor.Application.Selection.Start = Len(.Body)
    pageEditor.Application.Selection.End = pageEditor.Application.Selection.Start
    pageEditor.Application.Selection.PasteAndFormat (wdFormatOriginalFormatting)
    .Display
    Set pageEditor = Nothing
    Set xInspect = Nothing
End With

Set newEmail = Nothing
Set outlook = Nothing

End Sub