Incrementar celda seleccionada

[Luminarte]

Buenos días,
Necesito ayuda para crear una pequeña macro:
El valor que hay en la celda que seleccione debe incrementarse con el valor existente en la misma fila más el valor en la misma fila 5 columnas antes.
Esto ocurrirá al ejecutar la macro (lo haré con combinación de teclas (alt+n))
Espero puedan ayudarme.

Muchas gracia!

Editado el el 22 de febrero por Luminarte

[JSDJSD]

No se si será lo que necesitas, ejecuta la macro con  Control + n

[JSDJSD]

Sub IncrementarValor()
    If TypeName(Selection) = "Range" And Selection.Cells.Count = 1 Then
        Set cel = Selection
        If Not IsEmpty(cel.Value) Then
            valor = cel.Value
            cel.Value = valor + cel.Offset(0, -5).Value
        Else
            MsgBox "La celda seleccionada está vacía.", vbExclamation
        End If
    Else
        MsgBox "Por favor, selecciona una única celda.", vbExclamation
    End If
End Sub

 

Libro1.xlsm

[Luminarte]

Esto era. Mil gracias.