ir a la siguinte celda del final de una lista

hola,

tienes varias opciones. La solucion más rapida es hacer:
Ctrl + "flecha abajo"
y luego volver a pulsar la "flecha abajo" (cursores)

aunque si quieres una macro, pues aqui la tienes:
Sub IrAlFinal()

While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Select
Wend

End Sub

Un saludo,

Ramon