Eu consegui resolver da seguinte forma: Sub Teste() 'Localiza a coluna a partir da célula inicial que defini ultima = Range("A2").End(x...

Ola Reinaldo, testei o que me passou, só que ele esta definindo um valor fixo, ou seja, esta sempre definindo Mailing!$A$7:$A$8, e o valor da célula ...