Option Explicit
'==================================================================================================
Sub Main()
Dim AC&

AC = Application.Calculation: Application.Calculation = xlCalculationManual

    If Not func1(Selection) Then GoTo ex
    If Not func2(15) Then GoTo ex

ex: Application.Calculation = AC
End Sub
'==================================================================================================
Function func1(rng As Range) As Boolean
    If rng.Count = 1 Then MsgBox "Нельзя одну ячейку!", vbCritical, "func1": Exit Function
    ' ... остальной код и сколько угодно проверок
    func1 = True
End Function
'==================================================================================================
Function func2(n&) As Boolean
    If n < 0 Then MsgBox "Нельзя меньше нуля!", vbCritical, "func2": Exit Function
    ' ... остальной код и сколько угодно проверок
    func2 = True
End Function
'==================================================================================================

'Option Base 1
Option Explicit
'Option Private Module
'==================================================================================================
Sub Splitter()
Dim rng As Range
Dim x, arr, aCrit(), aOne(1 To 1, 1 To 1)
Dim tx$, t!, r&, m&, nSpl&, f As Boolean

t = Timer
Set rng = [a2:a88]: arr = rng.Value2
ReDim Preserve arr(1 To UBound(arr, 1), 1 To 2)
aCrit = Array("шумоглушитель *", "гибкая вставка *", "вентилятор канальный *", "обратный клапан *", "регулятор скорости *")

For r = 1 To UBound(arr, 1)
    tx = LCase$(Trim(arr(r, 1)))

    For Each x In aCrit
        If tx Like x Then f = True: Exit For
    Next x

    If f Then
        f = False: nSpl = nSpl + 1: m = Len(x)
        arr(r, 2) = Trim(Mid$(arr(r, 1), m)): arr(r, 1) = Trim(Left$(arr(r, 1), m - 2))
    End If
Next r

If nSpl = 0 Then MsgBox "Строк для разделения НЕ НАЙДЕНО!", vbExclamation, "Время работы: " & Format$(Timer - t, "0.00 сек"): Exit Sub

rng.Resize(UBound(arr, 1), UBound(arr, 2)).Value2 = arr
MsgBox "Разделено строк: " & Format$(nSpl, "#,##0") & " из " & UBound(arr, 1), vbInformation, "Время работы: " & Format$(Timer - t, "0.00 сек")
End Sub
'==================================================================================================
'==================================================================================================

Sub t()
Dim x, aMask()

aMask = Array("*приточная*", "*вытяжная*", "*установка*", "*id*")

For Each x In aMask
    Debug.Print LCase$("автоматическая Установка на работе") Like x
Next x
End Sub

Dim i&
arr = Array("было1", "стало1", "было2", "стало2")

For i = LBound(arr) To UBound(arr) Step 2
    Cells.Replace What:=arr(i), Replacement:=arr(i + 1), LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Next i