Sua exigência contém duas partes:
Primeiro, para acionar o evento, por padrão, não há nenhum evento que venha com o Excel, então o trabalho está abaixo:
Depois, para passar para a próxima célula, você pode usar a linha abaixo:
ActiveCell.Offset(1, 0).Select