Você pode usar uma macro que encontrará a próxima célula com o mesmo valor que o Active Cell
e, em seguida, atribuir um atalho de teclado à macro.
Veja abaixo uma macro de exemplo:
Sub SetValue()
findval = ActiveCell.Value
Cells.Find(What:=findval, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
End Sub
Não faz distinção entre maiúsculas e minúsculas.
Alterar:
MatchCase:= _ False
Para True
se você deseja diferenciar maiúsculas e minúsculas.