Макрос для условного форматирования ячеек с числами больше заданного

Sub RedNumbers()
    ' макрос запрашивает у пользователя число,
    ' после чего в текущем столбце красит все ячейки с числами,
    ' большими чем введенное, в красный цвет
    
    On Error Resume Next: col = ActiveCell.Column
    If Err Then Exit Sub    ' выход, если не открыта ни одна книга

    Dim ra As Range: Set ra = Intersect(Columns(col), ActiveSheet.UsedRange)
    If ra Is Nothing Then Exit Sub    ' выход, если выделена ячейка в пустом столбце

    msg = "Введите число для сравнения с числами текущего столбца." & vbNewLine & _
          "Все числа в столбце " & col & ", которые больше введенного числа, будут выделены красным"
 
    ' запрашиваем число
    n = Application.InputBox(msg, "Выделение чисел цветом", Val(ActiveCell), , , , , 1)
 
    ' удаляем условное форматирвоание
    ra.FormatConditions.Delete
 
    If TypeName(n) = "Boolean" Then    ' отказ от ввода числа
        ' ничего не делаем

    Else    ' введено число

        ' назначаем условное форматирование - красим в красный цвет все ячейки
        ' со значением больше N
        ra.FormatConditions.Add(xlCellValue, xlGreater, n).Interior.Color = vbRed
 
    End If
End Sub

Sub ClearCF()
    ' макрос удаляет условное форматирование на всём листе
    On Error Resume Next
    Cells.FormatConditions.Delete
End Sub