vba excel -

[Marcos 979]

Bom dia a Todos!

 

Estou fazendo uma planilha para a análise de dados de vendas, após a compilação desses dados eu preciso que o Excel selecione os dados de vendas de cada vendedor e encaminhe para seus respectivos e-mails, por exemplo:  percorrer todos as células com o nome do vendedor João e selecionar os dados que estão na frente dessas células e enviar por e-mail, conforme imagem abaixo: 

 

 

Estou usando o código abaixo para enviar o e-mail, mas não estou conseguindo elaborar um código para selecionar os dados.

Sub Button1_Click()
   'Seleciona o intervalo de células a serem enviadas por email.
   ActiveSheet.Range("A1:B14").Select
   ActiveWorkbook.EnvelopeVisible = True
   With ActiveSheet.MailEnvelope
      .Introduction = ""
      .Item.To = "[email protected]"
      .Item.Subject = "Teste"
      .Item.Send
   End With
End Sub

 

Por gentileza, gostaria de sugestões de como posso fazer isso funcionar.

Muito Obrigado!