Selecionar a próxima célula vazia
Ésta macro seleciona a próxima célula em branco à Direita. Para selecionar células à esquerda, acima ou abaixo basta alterar os parâmetros Offset.
Sub Selecina_Proxima_celula_Vazia_Direita()
ActiveCell.Offset(0, 1).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(0, 1).Select
Loop
End Sub