Cut and paste value from fixed cell to a variable cell

[Rick Rothstein]

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".