A linha de codigo abaixo posiciona na ultima celula tente coloca-lo no seu codigo, mas o Patropi tem razão a imagem ajuda pouco, melhor (sempre) seria disponibilizar o arquivo.
Range("A1048576").End(xlUp).Offset(1, 0).Select
Postado : 29/02/2016 11:37 am