Rilton,

Bom Dia!

Veja no arquivo anexo, se é assim lhe atende.

Observe que, da forma que fiz, estou pegando a última linha com dados pela coluna D e armazenando na variável UltimaLinha. Entretanto, isso faz com que a última linha (a de número 15) que não contém nada na coluna D não seja oculta, pois o comando para armazenar a última linha pega pela coluna D e, nesse caso, pega somente até a linha 14. Desse modo, sugiro que você altere o código de maneira que a última linha pegue uma coluna que sempre terá dados. Por exemplo: suypondo que a sua coluna A tenha algo como código e que sempre existirá um código para o produto ou cliente cadastrado, você coloca no código (onde tem o número 4) o número 1).

Valeu Wagner!!

Consegui adaptar a minha necessidade e ficou perfeito.

Obrigado