Combining first name , last name & domain to get email

[techt]

My job requires me to sent 1000+ emails a day. I have to manually use concatenate on ever name to get the email. Is there a way to automate it ? I heard abt macros but never used it. the problem is I have
20 different types of email formats, how do I assign which formula to run on which email. Below is the list for Ref number ,they should correspond with Ref in column B. 2nd image is the end result. Hope I was able to explain my issue.

{f}{last} 1
{first}.{last} 2
{first} 3
{f}_{last} 4
{first}{l} 5
{f}.{last} 6
{first}_{last} 7
{last}{f} 8
{last} 9
{first}{last} 10
{first}.{l} 11
{last}.{first} 12
{first}-{last} 13
{last}{first} 14
{last}.{f} 15
{f}{l} 16
{l}{first} 17
{first}_{l} 18
{last}_{first} 19
{last}_{f} 20

 

[techt]

engage.greenwayhealth.com.xlsx
	C
741	Julie Moore
742	Justin Brennan
743	Karen Cooper, MBA
744	Keith Neumeyer
745	Michele Leoni
746	Mindy Anderson
747	Paula Ventura
748	Rosanne Raso, DNP, RN, NEA-BC, FAAN, FAONL
749	Steven Emory
750	Adnan Qadir
751	Bonnie Radintz
752	Caroline Kidston, GPHR, PHR, MBA
753	Garrett Iannella
754	Julie Correll, JD, CHC
755	Kelly Gallagher
756	Kelly Newton Jeffers
757	Laura DePasquale
758	Marian Stevens, SPHR
759	Mark Gingrich
760	Max Sow
Sheet1

is there a way i can remove everything after the comma in the name?

 

[kweaver]

You might use this before the Select Case:

For i = 2 To lr
n = Cells(i, "C")
wc = InStr(i, n, ",")
 If 0 <> wc Then
  n = Left(Cells(i, 3), wc - 1)
 Else
 End If

Then, you can change all the references to Cell(i, 3) to n

 

[techt]

You might use this before the Select Case:

For i = 2 To lr
n = Cells(i, "C")
wc = InStr(i, n, ",")
 If 0 <> wc Then
  n = Left(Cells(i, 3), wc - 1)
 Else
 End If

Then, you can change all the references to Cell(i, 3) to n

thanks a lot for everything