Visual Basic macro enviar parte de um relatorio por email

[janenovatzki]

Pessoal, tudo bom? 

preciso de uma ajuda... tenho uma macro simples que copia uma range e envia por email. 

agora preciso adaptar ela para:

 

1º - ao clicar em qualquer linha da coluna A, ele ira selecionar e copiar todas as linhas (a partir da celula selecionada, nao importando quantas colunas tem), até achar uma palavra qualquer na coluna A. (ele copia até a ultima linha da coluna a em "branco")

2º -colar como imagem no corpo do email e enviar.

 

no exemplo abaixo preciso que ele copie tudo no caso da linha 1 (seria onde eu clicaria, e pode ser aleatorio) até a a linha 3 (pois na linha 4 tem a palavra #nda).

 

                coluna A              coluna B           coluna  c

linha 1 - teste@teste                                             fs

linha 2 -

linha 3 -                                   fdf                     fdf

linha 4 - #nda

 

segue abaixo a macro que possuo para adaptar.

Sub Macro1()
         
       ActiveSheet.Range("b3:AA11").Select
        ActiveWorkbook.EnvelopeVisible = False
       
        With ActiveSheet.MailEnvelope
          .Introduction = "Bom dia" 'Texto Corpo do e-mail
          .Item.To = "TESTE@TESTE" 'Para quem sera enviado
          '.Item.Cc = "[email protected]" ' Com copia
          .Item.Subject = "Quantidade de Atendimento" ' Assunto do e-mail
          .Item.Send
       End With