Macro modification that extracts the emails present in the links indicated in the column.

I have attached a macro that extrapolates the emails that are present in the web page of the url inserted in column "H" of sheet 1.

The e-mails extracted are arranged by column in sheet 2. Besides the e-mails other characters / words are also extracted.

Could you do so by inserting the addresses in column "a" and the results in the cell next to column "b" of sheet 1?

I noticed that the e-mail extraction is slow when I insert multiple links and that the macro does not extrapolate the e-mails in the form of a hyperlink.

Is it possible to speed up the macro in the hypothesis of inserting so many url and allow the extraction of emails in the form of a hypertext link beyond the withdrawal modifications (colon a) and the results entry (column b)?

If you know a better method could you insert it here?

Thank you