Create and Rename New Worksheets for each unique cell in a column

[DavisNRJr]

	Header1 Header2 Header3 Email Header5 Header6 Header7 1 a b email@1 c d e 2 b c email@2 d e f 3 c ? email@3 ? ? ? 4 d ? email@4 ? ? ? 5 e ? email@5 ? ? ? 6 f ? email@6 ? ? ? 7 g ? email@7 ? ? ? <tbody> </tbody>

<tbody>
</tbody>

I am trying to write VBA code to loop thru the rows of an excel Worksheet(Source) as above, and use the values of each row of data in worksheet (A) to do some calculations. After that, save worksheet (C) that has results of the calculations with the name of the email "email@1, email@2, email@3 etc."

After this, save new email named worksheet in a separate workbook in a specified Directory.

After the files are produced and placed in the specified Directory, have the files emailed automatically to the email address it has been named.

Thanks for any help. I have seen so many ways to email out files, and I am challenged. Appreciate any help with this task.

Above VBA would produce
Worksheet1 in separate workbook as Worksheet named (email@1)
Worksheet2 in separate workbook as Worksheet named (email@2)
Worksheet3 in separate workbook as Worksheet named (email@3)
Worksheet4 in separate workbook as Worksheet named (email@4)
Worksheet5 in separate workbook as Worksheet named (email@5)
Worksheet6 in separate workbook as Worksheet named (email@6)
Worksheet6 in separate workbook as Worksheet named (email@7)

all saved in the same Directory specified, and then emailed out to the respective email address.