Insert Value When A Conditin is Met

[Admin]

Hi

Try

Sub kTest()
    
    With Range("d3:d5000")
        .Offset(, 2).Value = Evaluate("IFERROR(IF(" & .Address & "=""C"",""Same Day Cancel"",""""),"""")")
    End With

End Sub