Mailadressen aus einer Tabelle übernehmen!

Sub Mail()
Dim C As Range, Bereich As Range
Dim Awf As WorksheetFunction
Set Awf = Application.WorksheetFunction
Set Bereich = Sheets(2).Cells(2, 5)
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim AWS As String
If Sheets(1).Cells(1, 16) = "Mail" Then
AWS = Environ("USERPROFILE") & "\" & ThisWorkbook.Name
End If
ThisWorkbook.SaveCopyAs AWS
Application.Visible = True
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "bla.bla@blablagroup.com;bla.blub@blablagroup.com"
'an der Stelle, an der ich die Adressen im Quellcode eingebe, würde ich gern auf 'einen Tabelle  _
'verweisen. zBsp. so:.Sheets(8).Cells(Rows.Count, 1).End(xlUp).Row '
'dies funktioniert leider nicht!
.Cc = ""
.Subject = "Bitte um Ergänzung
" & Sheets(1).Range("D2") & " " & Sheets(1).Range("N3") & " " & Sheets(1).Range("O2") & " " &  _
Sheets(2).Range("E2") & " .xls"
.Attachments.Add AWS
.Body = "Hallo zusammen, bitte um Ergänzung!" & vbCrLf & ""
.Display
End With
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub