Restate values by multiplication (will also work for all math operations)

CellInR_MultiplyValues.bas

Sub MultiplyValues()
Dim Cell As Range
Dim prv As Double
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'written by Angelina Teneva, September 2016
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

'multiplies by a 1000
For Each Cell In ActiveSheet.Range("J2:J" & ActiveSheet.UsedRange.Rows.Count).SpecialCells(xlCellTypeVisible)
    prv = Cell.Value
    Cell.Value = prv * 1000 '*(-1)
Next Cell

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'make values negative
For Each Cell In ActiveSheet.Range("AV:AV", "AX:AX")
    If IsNumeric(Cell) And Cell.Value <> 0 Then
        prv = Cell.Value
        
        Cell.Formula = prv * -1
    End If
Next Cell

End Sub