Pregunta para dante cambia el formato de la celda y al modificar un importe no se modifica le resultado

Agregué esta parte para no modificar los importes de la columna G

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Por.DAM
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        If Target.Row > 13 Then
            Application.OnKey "{Enter}", "Fecha"
        End If
    End If
    '
    If Not Intersect(Target, Range("G:G")) Is Nothing Then
        If Target.Row > 13 Then
            Cells(Target.Row, "E").Select
        End If
    End If
End Sub