I'm curious how the code is working for you. Tried it on my system here ... nothing. Marked out all the error checking comments
and no error messages either. Strange.
In any case, here is another method to accomplish what you want :
The code as written will also copy the email addresses where they are presently located (L2:L5). You can move the email addresses to rows that are not
aligned with the existing data rows and then the email addresses won't show in the PDF. The addresses can be placed on another sheet or the same
sheet at present but somewhere lower down than Row 18.
As indicated ... this is just one method of accomplishing your goal. There are plenty of other variations as well.