Ultima linha / Linha em branco

Pessoalmente não gosto de utilizar este tipo de código (já tive problemas).
Mas visualmente é mais fácil que o uso do while.
Exemplo:

Range(“a20“).Select ‘….Seleciona primeira linha preenchida
Selection.End(xlDown).Select ‘….vai até última linha preenchida
x = Selection.Row ‘….grava na variavel a última linha

x = x + 1 ‘ …pega a célula em branco.

Verificar linha em branco – com ‘Do While’

Como um exemplo podemos verificar qual a célula vazia de uma planilha:

Imagem Exemplo Macro

Sub teste()

contaLinha = 1 ‘Esta variavel irá servir para pular de linha
verificaCel = Cells(contaLinha, 1).Value ‘Variável para gravar o conteúdo da célula
Do While verificaCel <> “”         ‘Faça enquanto conteudo da celula diferente de  vazio
contaLinha = contaLinha + 1 ‘soma ela mesma, pula para próxima linha
verificaCel = Cells(contaLinha, 1).Value  ‘verifica novo conteudo
Loop ‘volta para o while
MsgBox “A linha vazia é ” + CStr(contaLinha) ‘Mostra mensagem, qual linha é a vazia

End Sub

____________
Veja também: Outro código
__________ Praticando Exercício 2