Sub Macro_para_deletar_qualquer_valor_acima_de_uma_valor_informado_smile()
Application.ScreenUpdating = False
Dim limite As Double
limite = InputBox("Digite o valor:", "Boa tarde!")
For Each cell In ActiveSheet.UsedRange
    If cell.Value2 > limite Then cell.ClearContents
Next
Application.ScreenUpdating = True
End Sub

não testei

Sub ApagarValor()
Dim Celula               as range
Dim ValorInformado  as Single

ValorInformado = 5
for each celula in thisworkbook.worksheets("Nome Da Planilha").Range("A1:Z1000")

if vba.isnumeric(celula.value) then if celula.value > valorinformado then  celula.clearcontents

Next celula

End Sub

Boa noite
Meus agradecimentos ao gtsalikis e fernando.fernandes, as macros sugeridas e aprovadas. Vou creditar o "resolvido" ao fernando.fernandes, devido ao fato da solução proposta por ele, de informar o intervalo desejado.