Copy value in formula

[Jonny]

How would i copy a the value of a formula to the last
empty cell in a row in vba?

 

[Tom Ogilvy]

I assume you mean the first empty cell to the right of the data.

You didn't specify what cell contains the formula or which row, so I am
assuming the active cell and the value is placed in that row to the first
empty cell after the data.

set rng = cells(activeCell.row,256).end(xlToLeft)(1,2)
rng.value = activecell.Value