Considerando que isso foi perguntado há 2 anos, tenho certeza de que você resolveu o problema ou seguiu em frente. Mas isso chegou ao topo da lista não respondida, então ... aqui vai!
Para responder a primeira pergunta, existe uma maneira mais eficiente? A parte que você compartilhou parece ser executada manualmente, o que significa que o programa não será executado, a menos que você execute uma ação. Eu tentaria automatizar essa tarefa com um processo orientado a eventos. Isso pode ser feito de várias maneiras diferentes e eu preciso saber mais sobre seu fluxo de trabalho para obter eficiência significativa.
E a segunda pergunta, sobre como alterar o email. Tipos de uma questão aberta, considerando o estado atual do código. A explicação simples e curta é salvar o valor das células para uma variável ou duas e, em seguida, usar essa variável em seu email.
Por exemplo, se você tivesse uma variável com a horrível variável de nomeX e essa variável contivesse o intervalo de F3, seu e-mail poderia usar a variávelX.
Uma alteração simples para adicionar as informações:
. Subject = "The cell at " & variableX.address & " is " & variableX. value & " test succeeded"