Valid and Invalid emails from sheet2 and sheet3 into sheet1

[satish78]

Hello Guys,

I will explain little briefly here.

My daily task involves in updating spreadsheet like adding valid emails and removing invalid(dead) emails which I receive on daily basis from Vendors.

for example:
I nearly contact 5000 vendors on daily basis in which I get few responses like "John is no longer working with our ABC company please remove email id John@abc.com and Add email Id Mary@abc.com"

so here one is invalid(dead email)(john@abc.com) email and one is valid email(Mary@abc.com)

Sheet1(renamed:Vendors by Location) ColumnG2 contains emails(within 1 cell) like John@abc.com;Anderson@abc.com;Jason@abc.com
Sheet2(renamed:Valid emails) ColumnA2 contains Valid emails
Sheet3(renamed:Invalid emails) ColumnA2 contains Invalid emails

So, here I need 2 macros
Macro1 should find & match domain email from Sheet2 ColumnA2 in Sheet1 ColumnG2 and add email address in Sheet1 ColumnF2 from Sheet2 ColumnA2.

Macro2 should find & match domain email from Sheet3 ColumnA2 in Sheet1 ColumnF2 & ColumnG2 and Remove email address in Sheet1 ColumnF2 and ColumnG2 from Sheet3 ColumnA2.

Can anyone help me with this?
It saves me hours in my day job.

Thanks
Satish