Teste ai, e veja se funciona:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Count > 1 Then Exit Sub
    If Target.Address(False, False) = "A60" Then    'Se a célula A60 for alterada
        Range("B10").Select    'Selecionar a célula B10
    End If

End Sub

Tutano, bom dia.

Você só precisa alterar o código para a célula desejada.

Seu if está se referindo a célula "A61", então a B10 vai ser selecionada após a alteração da "A61". Se o seu interesse é que isso aconteça após alterações na "A60", basta alterar essa referência para "A60".

Abraços.

Amigo, não é necessário utilizar macro, basta clicar com botão direiro do mouse nas células que deseja depois clique em "Formatar células" e em "Proteção" desmarque a a opção "Bloqueadas" clique em "OK" pra sair. Depois vá em "Revisão" selecione "Proteger planilha" e dentro da janela que abrir desmarque a opção "selecionar células bloueadas" depois clique em "OK". pronto só fazer o teste.

Isso nao precisa de codigo é so proteger a planilha.

Obrigado pela ajuda pessoal.
Eu protegi as células como o engeel2014 disse e vi o teste.rar enviado, porém a planilha não é somente esta tabela. Tem o cabeçalho e rodapé para preencher. Quando eu teclo enter , ele pula a célula bloqueada vai para próxima abaixo que no caso é o rodapé ou antes de ir para a primeira célula da tabela, ele vai para o cabeçalho. Não sei se existe ainda algum modo sem a necessidade de utilizar vba.
Consegui como o Basole passou. Eu vi que o código foi feito no Worksheet_Change e eu estava fazendo no Worksheet_SelectionChange, não sei a diferença, porém deu certo. Obrigado.
Se não for encomodo...
Eu gostaria de abranger esse código do Basole para as células A60 até R60, ou seja: Da célula A60 vai para B10, da célula B60 vai para C10, da célula C60 vai para D10 e assim por diante até a coluna R.
Teria que criar um código para cada célula ou posso modificar este e abranger todas ?

Muito Obrigado.

@tutano007,
Segue as alterações, veja se é esse o intervalo, que entendi, que vc. deseja:

 Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Count > 1 Then Exit Sub

    If Not Intersect(Target, Range("A10:R60")) Is Nothing Then
              'Se no intervalo (A10:R60) a linha 60 for alterada
        If Target.Address(False, False) = VBA.Replace(ActiveSheet.Cells(60, Target.Column).Address, "$", "") Then
            ActiveSheet.Cells(10, Target.Column + 1).Select   ' Selecionar na linha 10
        End If

    End If
End Sub