=ЕСЛИ(B6<МИН(B1;B3)*0.15;"да";"нет")

.Attachments.Add ThisWorkBook.FullName

Function GetIP$(rg As Range, Optional Sep$ = ";")
  Dim c As Range, re, ms, i&, s$
  For Each c In rg: s = s & c: Next
  Set re = CreateObject("VBScript.RegExp"): GetIP = "Нет IP"
  re.Pattern = "\d+\.\d+\.\d+\.\d+": re.Global = True
  Set ms = re.Execute(s): s = ""
  For i = 0 To ms.Count - 1: s = s & Sep & ms(i): Next
  If Len(s) Then GetIP = Right(s, Len(s) - 1)
End Function

Sub RemovePersonalInfo()
  ActiveWorkbook.RemovePersonalInformation = False
End Sub

=РАНГ(D2;ИНДЕКС(D:D;ПОИСКПОЗ(B2;B:B;)):ИНДЕКС(D:D;ПОИСКПОЗ(B2;B:B;)+СЧЁТЕСЛИ(B:B;B2)-1))

=МАКС(МАКС(ЕСЛИ(($A$3:$P$3=B$15)*($A$5:$P$5=$A16);$A$7:$P$7));МАКС(ЕСЛИ(($A$8:$P$8=B$15)*($A$10:$P$10=$A16);$A$12:$P$12)))

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Dim hm
  If Target.Column > 1 Then Exit Sub
  hm = InputBox("Сколько шт.?", "Вставить строки", 3)
  hm = Val(hm): If hm = 0 Then Exit Sub
  Cancel = True: Rows(Target.Row).Resize(hm).Insert shift:=xlShiftDown
End Sub