• This code in module will send your workbook to recipients whose email addresses are in range A1:A2 of the current sheet and whose subject is in B1:


    Sub sendmail()
    Dim Recipients
    Dim Subject
    Subject = Range("B1")
    Recipients = Range("A1:A2")
    ActiveWorkbook.sendmail Recipients:=Recipients, Subject:=Subject
    End Sub



    To determine who gets what, make the email addresses conditional on the content.


    You have to be more specific about what data you want moved about for the other part of your question...


    Joel