this may do it all for you since it copies the last column to the next
column and then converts the formulas in the previous last column to values

Sub valuelastcoltonest()
lc = Cells(1, Columns.Count).End(xlToLeft).Column
Columns(lc).Copy Columns(lc + 1)
Columns(lc).Value = Columns(lc).Value
End Sub


--
Don Guillett
SalesAid Software

"GregR" wrote in message
ups.com...
I have a spreadheet that has a column, titled "Running Totals". This
column moves each month after the first of the month. When I move that
column, I want to automatically convert any formulas to the left of the
column into their numeric value. How? TIA

Greg