Cut and paste value from fixed cell to a variable cell

[Charles_]

Hi Rick,

Thanks for your help.

The code is not working though, I may have explained incorrectly.

*I will always have a variable value in cell A1
*I need to be able to paste that value in column C only IF column B = Drinks.

The problem I am having is that is currently copying "0" and not "100" in this case. I believe its because I had the value in the same column as the delimiter (Drinks). I have moved the delimiter to column B.

Thanks again!

This appears to be what you are asking for...

Sub DrinksAnyone()
  Dim LastRow As Long
  LastRow = Cells(Rows.Count, "A").End(xlUp).Row
  Range("B1:B" & LastRow) = Evaluate("IF(A1:A" & LastRow & "=""Drinks"",""Drinks"",B1:B" & LastRow & ")")
  Columns("A").ClearContents
End Sub

Note: That last line is there because you said you wanted to "*Cut value from cell A1".