Assuming you want to use VBA - see below (alter Intersect Range to encompass the range you intend to use this with) -- to insert the below right click on "Sheet1" tab and select View Code and paste above into resulting window
(note you can have only one Worksheet_Change event per sheet object)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Intersect(Target, Range("C6:C16")) Is Nothing Then Exit Sub
With Target.Offset(, 3).Resize(, 2)
.FormulaR1C1 = .Offset((1 + Abs(UCase(Target.Value) = "N")) - .Row).FormulaR1C1
End With
End Sub
Bookmarks