Dim LRow As Long: LRow = Sheets("ДУП").Cells(Rows.Count, 1).End(xlUp).Row + 1
Dim iFindCell
Set iFindCell = Sheets("ДУП").Range("H4:H1000").Find _
    (What:="ДДУ", LookIn:=xlValues, LookAt:=xlWhole).Row
Sheets("ДУП").Range(Cells(iFindCell, 1), Cells(LRow, 30)).Rows.Delete

Sub AddComent()
Application.ScreenUpdating = False
Dim iLastCol As Integer
Dim AR
AR = ActiveCell.Row
With Sheets("Комменты")
iLastCol = Sheets("Комменты").Cells(AR, Columns.Count).End(xlToLeft).Column
Format(Now, "hh:MM") & ")"
Application.DisplayAlerts = False
ap = Application.InputBox("Введите комментарий для клиента:", "Комментарий")
If ap = False Then Exit Sub
Sheets("Комменты").Cells(AR, iLastCol + 1) = Format(Now, "DD.MM.YY") & " " & ap & " (" & Application.UserName & " " & Format(Now, "hh:MM") & ")"
End With
Application.ScreenUpdating = True
End Sub

Sub Komments()
Application.EnableEvents = False
Dim CurRow
CurRow = ActiveCell.Row
UserForm1.Show vbModeless
        LRow = CurRow
        If Len(Cells(LRow, 1).Value) > 0 Then
            lCol = Cells(LRow, 1).End(xlToRight).Column
            If lCol > 2 Then
                arr = Range(Cells(LRow, 3), Cells(LRow, lCol)).Value
                s_str = arr(1, 1)
                For i = 2 To UBound(arr, 2)
                s_str = s_str & Chr(10) & arr(1, i)
                Next i
                ListBox1.List = s_str
            End If
        End If
    Application.EnableEvents = True
End Sub

Sub ToKomm()
Dim iCurRow As Integer
iCurRow = Cells(ActiveCell.Row, ActiveCell.Column).Row
Sheets("Лист2").Activate
ActiveSheets.Cells(iCurRow, 1).Select
End Sub

Sheets("ПАРАМЕТРЫ").Protect Password:=1234, UserInterfaceOnly:=True, _
        DrawingObjects:=True, Contents:=True, Scenarios:=True, _
        AllowFiltering:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True, _
        AllowSorting:=True

Sub Check_Open_Book()
Dim xx
If Intersect(Target, Range("С2:E2")) Is Nothing Then Exit Sub
    If IsFileOpen("C:\3.Общая.xlsb") Then Exit Sub
    Else
    If MsgBox("База не обнаружена, открыть?", vbYesNo, "Light26") = vbNo Then Exit Sub
    Workbooks.Open ("C:\3.Общая.xlsb")
    End If
End Sub