Hello,

I am trying to run:

*Cut value from cell A1
*Paste value in column B, only IF column A equals "Drinks"

Rick provided the code below for a similar requirement but would like to edited for th above.

Thanks in advance for your help!

"Dim Amount As Long
Amount = Cells(Rows.Count, "B").End(xlUp).Row
Range("F2:F" & Amount) = Evaluate("IF(B2:B" & Amount & "=""OK"",IN2:IN" & Amount & ",IO2:IO" & Amount & ")")"