I don't know if you still need help with this or not.
I haven't actually tested this in e-mail but I have some things for you to try if you want:
The first commented out section, replace with this. Change the value in the Dim statement if more than 1000 e-mail addresses is a possibility.
Dim sendone(1000) As String
ct = 0
For pers = 1 To Range("A65536").End(xlUp).Row
Reply = Cells(pers, 2).Value
If Reply = "N" Then
ct = ct + 1
sendone(ct) = Cells(pers, 1).Value
In the 'Attaches workbook to email... section, replace the code with this:
'Attaches workbook to email, adds addresses and sends email'
For x = 1 To ct
Remove the Next pers before the End sub