With Selection .SpecialCells(xlCellTypeFormulas, 1).ClearContents .SpecialCells(xlCellTypeConstants, 1).ClearContents End With
Selection.SpecialCells(xlCellTypeConstants, 1).ClearContents
For i = 0 To 9 Selection.Replace What:=i, Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Next