Gente, valeu muito todo dois códigos funcionaram e o do DJANES é muito simples posso adaptar os dois.. resolvido. Desculpem e trabalho..

nem sei se postei a imagem direito mas vou tentar dar um exemplo como codigo vba: Sub ExpliqueMelhor() if [A1]<>"" then ...

Desculpe me Alexandre, segue uma imagem exemplificando..