Sub УдалитьДоИлиПослеГраниц()
Dim cl As Range
Dim choose1 As Byte, choose2 As Byte, pos1 As Byte, pos2 As Byte
Dim txt$

On Error GoTo er
    If PRDX_HaveFull(Selection) = False Then MsgBox "Все пустые…", vbInformation, "NOTHING": GoTo ex
    If PRDX_HaveHide(Selection) = True Then MsgBox "Присутствуют скрытые!", vbCritical, "RANGE ERROR": GoTo ex
    If Selection.Cells.Count > 1000000 Then MsgBox "Не более 1 млн ячеек!", vbCritical, "RANGE ERROR": GoTo ex

choose1 = MsgBox("Удалить ДО пограничных символов [ДА] или ПОСЛЕ [НЕТ]?", vbYesNoCancel + vbQuestion + vbDefaultButton1) 'да/нет/выход = 6/7/2
    If choose1 = 2 Then GoTo ex
choose2 = MsgBox("Удалить пограничные символы?", vbYesNoCancel + vbQuestion + vbDefaultButton1) 'да/нет/выход = 6/7/2
    If choose2 = 2 Then GoTo ex

On Error GoTo ex
txt = Application.InputBox("Пограничные символы:", "Введите текст", " ", Type:=2)
    If Len(txt) < 1 Or txt = "False" Then GoTo ex

Application.ScreenUpdating = 0
On Error GoTo er
    If choose1 = 7 Then GoTo aft
    For Each cl In Selection
        If (Len(cl) < 2) Or (Not cl.Value Like "*" & txt & "*") Then GoTo nx_bef
        pos1 = InStr(cl.Value, txt): If (pos1 = 1 Or pos1 = Len(cl.Value)) And choose2 = 7 Then GoTo nx_bef
        pos2 = pos1 + Len(txt) - 1
            If choose2 = 6 Then
                cl.Value = Mid$(cl.Value, pos2 + 1)
                cl.Value = Application.WorksheetFunction.Trim(cl.Value)
            Else
                cl.Value = Mid$(cl.Value, pos1)
                cl.Value = Application.WorksheetFunction.Trim(cl.Value)
            End If
nx_bef:
    Next cl
    
GoTo fin

aft:
    For Each cl In Selection
        If (Len(cl) < 2) Or (Not cl.Value Like "*" & txt & "*") Then GoTo nx_aft
        pos1 = InStr(cl.Value, txt): If (pos1 = 1 Or pos1 = Len(cl.Value)) And choose2 = 7 Then GoTo nx_aft
        pos2 = pos1 + Len(txt) - 1
            If choose2 = 6 Then
                cl.Value = Left$(cl.Value, pos1 - 1)
                cl.Value = Application.WorksheetFunction.Trim(cl.Value)
            Else
                cl.Value = Left$(cl.Value, pos2)
                cl.Value = Application.WorksheetFunction.Trim(cl.Value)
            End If
nx_aft:
    Next cl

GoTo fin
er: MsgBox "КРИТИЧЕСКАЯ ОШИБКА!", vbCritical, "FATAL ERROR"
ex: MsgBox "Отмена выполнения…", vbInformation, "EXIT"
fin: On Error GoTo 0: Application.ScreenUpdating = 1
End Sub

Public Function PRDX_HaveHide(WF_rng As Range) As Boolean
Dim WF_cl As Range
    For Each WF_cl In WF_rng
        If WF_cl.EntireRow.Hidden = True Or WF_cl.EntireColumn.Hidden = True Then PRDX_HaveHide = True: Exit Function
    Next WF_cl
PRDX_HaveHide = False
End Function
'=========================================================================================================================
Public Function PRDX_HaveEmpty(WF_rng As Range) As Boolean
Dim WF_cl As Range

    For Each WF_cl In WF_rng
        If Len(WF_cl) = 0 Then GoTo ex
    Next WF_cl
PRDX_HaveEmpty = False

GoTo fin
ex: PRDX_HaveEmpty = True
fin:
End Function
'=========================================================================================================================
Public Function PRDX_HaveFull(WF_rng As Range) As Boolean
Dim WF_cl As Range

    For Each WF_cl In WF_rng
        If Len(WF_cl.Value) > 0 Then GoTo ex
    Next WF_cl
PRDX_HaveFull = False
GoTo fin

ex: PRDX_HaveFull = True
fin:
End Function

' объявления переменных
On Error GoTo er
Application.CalculateFull
' 3 функции ниже выполняют проверку разных областей в файле
If Not file_flagSet() Then MsgBox "Ошибка листа настроек!", vbCritical, "ОШИБКА НАСТРОЕК": shSetttings.Select: GoTo ex
If file_flagDBEmpty() Then MsgBox "Хранилище пустое!", vbCritical, "ОШИБКА ВЫВОДА": GoTo ex
If Not file_flagDBFull() Then MsgBox "В хранилище присутствуют ошибки!", vbCritical, "ОШИБКИ": GoTo ex
If MsgBox("Ошибки не обнаружены." & vbLf & "Будет создано 2 файла." & vbLf & _
"Лист «ведомость» и хранилище будут очищены." & vbLf & vbLf & "Продолжить?", vbYesNo + vbQuestion + vbDefaultButton1) = vbNo Then GoTo ex
GoTo nxNR

repNR:
MsgBox "Недопустимое значение!", vbCritical, "ОШИБКА ВВОДА"
nxNR:
On Error GoTo repNR
sumNR = Application.InputBox("Введите сумму Накладных Расходов по данной ведомости:", "Шаг №1", "", Type:=2)
If sumNR = "False" Then GoTo ex
If InStr(sumNR, ".") > 0 Or InStr(sumNR, "-") > 0 Then GoTo repNR
On Error Resume Next
If --sumNR <= 0 Or --sumNR <> --sumNR Or --sumNR <> Application.WorksheetFunction.Round(--sumNR, 2) Then GoTo repNR
If Err <> 0 Then GoTo repNR
sumNR = --sumNR
GoTo nxKP

repKP:
MsgBox "Недопустимое значение!", vbCritical, "ОШИБКА ВВОДА"
nxKP:
On Error GoTo repKP
sumKP = Application.InputBox("Введите сумму коммерции по данной ведомости:", "Шаг №2", "", Type:=2)
If sumKP = "False" Then GoTo ex
If InStr(sumKP, ".") > 0 Or InStr(sumKP, "-") > 0 Then GoTo repKP
On Error Resume Next
If --sumKP <= 0 Or --sumKP <> --sumKP Or --sumKP <> Application.WorksheetFunction.Round(--sumKP, 2) Then GoTo repKP
If Err <> 0 Then GoTo repKP
sumKP = --sumKP

On Error GoTo er

' основной код

MsgBox "2 файла успешно сформировано!" & vbLf & vbLf & "Время работы макроса (сек.): " & Round(Timer - t, 4), vbInformation, "ГОТОВО"
GoTo fin
er: MsgBox "Сообщите разработчику…", vbCritical, "НЕПРЕДВИДЕННАЯ ОШИБКА"
ex: MsgBox "Отмена выполнения…", vbInformation, "ВЫХОД"
fin: On Error GoTo 0: Application.ScreenUpdating = 1: Application.DisplayAlerts = 1
End Sub