Sende mail ud fra flere områder med mailadresser

Hej

Jeg har følgende kode som laver en pdf-fil af et ark, vedhæfter det til en mail og angiver modtagere. Modtagerne finder jeg i området c14:c20. Men jeg vil gerne hente adresse i et område mere: f14:f20. Hvordan får jeg det skrevet ind?

Sub SendMail()

    Dim Wkb As String
    Dim TempFilePath As String
    Dim TempFileName As String
    Dim OutApp As Object
    Dim OutMail As Object

'Angiv navn på pdf fil
Wkb = "Uddannelsesaftaler"
TempFilePath = Environ$("temp") & "\"


TempFileName = TempFilePath & Wkb & ".pdf"

'Her angives hvilket ark der skal sendes
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        TempFileName, Quality:= _
        xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
 

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

With OutMail
    .Display
    End With
        Signature = OutMail.body 'gets the email's standard signature

On Error Resume Next


With OutMail
.To = Join(Application.Transpose(ActiveSheet.Range("c14:c20").Value), ";") 'angiver hvor mailadresser hentes fra
.cc = ""
.BCC = ""
.Subject = "Oversigt over indgåede uddannelsesaftaler"
.body = "Hej" & Chr(10) & Chr(10) & "Hermed en oversigt over indgåede uddannelsesaftaler i den seneste periode."
.Attachments.Add TempFileName
.Display
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing

If Dir(TempFileName) <> "" Then Kill TempFileName 'deletes the created PDF file in the temps-folder
   
End Sub