pedro,

Como vc está trabalhando com eventos, existe uma outra preocupação.

O evento selection change vai executar o código toda vez que vc selecionar uma célula diferente, e por isso está "travando" o cursor na célla G5.

Para limitar a ação dos eventos, deve trabalhar com a célula alvo "target".

Pelo que eu entendi, o que vc quer fazer é, entrar na célula B5 e digitar uma informação, e, a partir da informação digitada, ir para outra célula. Se for isto, use este código:

Private Sub Worksheet_Change(ByVal Target As Range)
'somente executa o código se a alteração for realizada na célula B5
If Target.Row = 5 And Target.Column = 2 Then
    'verifica a alteração da célula B5 (definida acima) e executa a ação correspondente
    If Target.Value = "DIÁRIO" Then
        Range("G5").Select
    Else
        Range("I5").Select
    End If
End If
End Sub

Valeu, Gilmar.
Funcionou belezinha.
Pedro