Advice to Improve Email List Macro

[The Ruff Report]

This macro works but I believe it can be improved, especially in the EmailSendTo with all the cell.Offsets (note I'm emailing up to 8 people per file but I didn't include all the code in the screen grab). Basically, the macro goes through each row and attaches/emails the file in column J to the recipients in columns B-J. Column A is just a typed user label and doesn't go anywhere. Also, the macro as written will stop if there isn't an address in column B. I'd like for it to still email the attachment if addresses are in say columns C and D but missing from B. Any help is greatly appreciated.

 

[FormR]

Hi, you could try replacing the EmailSendTo = ... line with EmailSendTo = Application.TextJoin(";", True, cell.Resize(1, 8))

Just for future reference, it's much better (easier for your potential helpers) if you post your code directly into the thread (with code tags) instead of posting an image of your code.