str3 = VBA.Replace(str3, "%20", " ") 

Sub hl()
    Dim str1 As String, str2 As String, str3 As String
    Dim rng As Range
    Dim rng1 As Range
    Set rng = Application.InputBox("Выделите блок ячеек для поиска-замены", "ГДЕ ИЩЕМ?", , , , , , 8 )
    str1 = InputBox("Введите искомый текст", "ЧТО ИЩЕМ?")
    str2 = InputBox("Введите текст на замену", "НА ЧТО МЕНЯЕМ?")
    For Each rng1 In rng
        str3 = rng.Hyperlinks(1).Address
        rng.Hyperlinks(1).Address = VBA.Replace(str3, str1, str2)
    Next
End Sub

Private Sub CommandButton1_Click()
If Me.ComboBox1.Text = "" Then
    MsgBox "Заполните поле <Год выпуска>", vbExclamation, "Ошибка"
    Me.ComboBox1.SetFocus
    Exit Sub
End If
If Me.ComboBox2.Text = "" Then
    MsgBox "Заполните поле <Месяц выпуска>", vbExclamation, "Ошибка"
    Me.ComboBox2.SetFocus
    Exit Sub
End If
If Me.ComboBox3.Text = "" Then
    MsgBox "Заполните поле <Причина поломки>", vbExclamation, "Ошибка"
    Me.ComboBox3.SetFocus
    Exit Sub
End If
If Me.TextBox1 = "" Then
    MsgBox "Заполните поле <Количество>", vbExclamation, "Ошибка"
    Me.TextBox1.SetFocus
    Exit Sub
End If
Dim rng As String
Dim FR As Range, cl%, rw%
With Sheets(ComboBox1.Text)
Select Case VBA.Left(Me.ComboBox4.Text, 1)
Case "1"
    rng = "A1:CC23"
Case "2"
    rng = "A24:CC45"
Case "3"
    rng = "A46:CC67"
Case "4"
    rng = "A68:CC88"
End Select
Set FR = .Range(rng).Find(ComboBox1.Text)
If FR Is Nothing Then MsgBox "Заполните все поля": Exit Sub
Set FR = .Range(rng).Find(ComboBox2.Text)
If FR Is Nothing Then MsgBox "Месяц не найден": Exit Sub
cl = FR.Column
Set FR = .Range(rng).Find(ComboBox3.Text)
If FR Is Nothing Then MsgBox "Причина поломки не найдена": Exit Sub
rw = FR.Row
.Cells(rw, cl) = .Cells(rw, cl) + TextBox1.Value
End With
   Unload UserForm1
   ActiveWorkbook.Save
   MsgBox "Информация добавлена!", vbInformation, "Отлично!"
End Sub

ActiveCell.Offset(1, 0).Select