Uma macro bem útil - localizar a proxima linha livre em uma planilha

A macro abaixo mostra como obter o endereçoi da célula corrente e posicionar o cursor na primeira linha disponível - bem útil para rotinas de entrada de dados:


A Sub proximaLinha posiciona o cursor na primeira linha livre após a linha atual:

Sub proximaLinha()
nextrow = Cells.Find(what:="*", searchdirection:=xlPrevious, searchorder:=xlByRows).Row + 1
Cells(nextrow, 1).Select
Uso da rotina acima: Rotinas de entrada de dados com automação(entrada de una linha e posicionamento do cursor).