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
Marcelo Prudencio
Microsoft Excel Brasil no Facebook
"Começar já é a metade do caminho."
Autor Desconhecido
Simplifica que simples fica.
Nicole Tomazella.
"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.
Postado : 29/02/2016 11:37 am