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!