Sub Макрос()

' Найти и заменить част формулы в активной ячейке

    Range("I7").Select
    ActiveCell.Replace What:="Справочник!$AC:$AE;2;0", Replacement:= _
        "Справочник!$AC:$AE;3;0", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase _
        :=False, SearchFormat:=False, ReplaceFormat:=False
    Cells.Find(What:="Справочник!$AC:$AE;3;0", After:=ActiveCell, LookIn:= _
        xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False, SearchFormat:=False).Activate
End Sub

Private Sub CommandButton1_Click()
Dim iRow&: iRow = ListBox1.ListIndex
If iRow = -1 Then Exit Sub

With wsSheet5.Cells(wsSheet5.Rows.Count, "E").End(xlUp)
.Cells(2, -2).Resize(, 4) = Application.Index(ListBox1.List, iRow + 1, 0)

.Cells(2, -3) = wsSheet1.Name
.CurrentRegion.Borders.LineStyle = xlContinuous
End With

' MsgBox ListBox1.List(iRow, 2), , "Добавлено :"
Unload Me 'Me.Hide
End Sub