Zap formulas based on cell value

CellInR_ZapFormulasCellValue.bas

Sub ZapValuesNoUserInput()

Dim Cell As Range
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'written by Angelina Teneva, September 2016
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

'paste special as values
For Each Cell In ActiveSheet.Range("AB2:AB" & ActiveSheet.UsedRange.Rows.Count)
    On Error Resume Next
    If Cell.Value <> "0" And Len(Cell) > 1 Then
    
        Cell.Activate
        ActiveCell.Copy
        ActiveCell.PasteSpecial xlPasteValuesAndNumberFormats
    End If
Next Cell

Application.CutCopyMode = False
End Sub