Sub Insert_Rows2()
     Dim lLastRow As Long, li As Long, i As Range ' переменные
     Application.ScreenUpdating = 0 'заморозим экран от изменений
     lLastRow = Cells(Rows.Count, 1).End(xlUp).Row 'переменной присваивается последняя строка
     For li = lLastRow To 3 Step -1 'ПЕРЕБИРАЕМ С последней до первой строки с шагом -1
     With ActiveSheet.UsedRange.Rows(li).Resize(2)
     .Insert 'добавляем 2 строки до нужной нам
         With .Offset(-2)
             .Value = .Offset(2).Resize(1).Value
             .Columns(6) = 0: Intersect(.Cells, [H:H,J:L]) = Empty
             .Cells(1, 1) = .Cells(1, 1) - 10: .Cells(2, 1) = .Cells(1, 1) + 5
             .Columns(2) = Application.Substitute(.Columns(2), "св", Application.Transpose(Array("мз", "об")))
         End With
     End With
     ' если заменить Resize(2) на Resize(1) то будет вставляться только одна строка
     Next li
     Application.ScreenUpdating = 1 'разморозили экран и он обновился
End Sub

=ЕСЛИОШИБКА(ПРОСМОТР(ИНДЕКС(НАИМЕНЬШИЙ(ЕСЛИ(Т[3]>$D$17;СТРОКА(Т);"");СТРОКА($A$1:ИНДЕКС($A:$A;СЧЁТЕСЛИ(Т[3];">"&$D$17))));ПОИСКПОЗ(НАИМЕНЬШИЙ(МУМНОЖ(Ч(ПРОСМОТР(НАИМЕНЬШИЙ(ЕСЛИ(Т[3]>$D$17;СТРОКА(Т);"");СТРОКА($A$1:ИНДЕКС($A:$A;СЧЁТЕСЛИ(Т[3];">"&$D$17))));СТРОКА(Т);Т[2]+СТРОКА(Т)%%%)>=ТРАНСП(ПРОСМОТР(НАИМЕНЬШИЙ(ЕСЛИ(Т[3]>$D$17;СТРОКА(Т);"");СТРОКА($A$1:ИНДЕКС($A:$A;СЧЁТЕСЛИ(Т[3];">"&$D$17))));СТРОКА(Т);Т[2]+СТРОКА(Т)%%%)));СТРОКА($A$1:ИНДЕКС($A:$A;СЧЁТЕСЛИ(Т[3];">"&$D$17)))^0);СТРОКА(A1));МУМНОЖ(Ч(ПРОСМОТР(НАИМЕНЬШИЙ(ЕСЛИ(Т[3]>$D$17;СТРОКА(Т);"");СТРОКА($A$1:ИНДЕКС($A:$A;СЧЁТЕСЛИ(Т[3];">"&$D$17))));СТРОКА(Т);Т[2]+СТРОКА(Т)%%%)>=ТРАНСП(ПРОСМОТР(НАИМЕНЬШИЙ(ЕСЛИ(Т[3]>$D$17;СТРОКА(Т);"");СТРОКА($A$1:ИНДЕКС($A:$A;СЧЁТЕСЛИ(Т[3];">"&$D$17))));СТРОКА(Т);Т[2]+СТРОКА(Т)%%%)));СТРОКА($A$1:ИНДЕКС($A:$A;СЧЁТЕСЛИ(Т[3];">"&$D$17)))^0);));СТРОКА(Т);Т[1]);"")

=ЕСЛИОШИБКА(ПРОСМОТР(;-1/(Таблица10[[#Заголовки];[склад]]:C1=C2)/(Таблица10[[#Заголовки];[товар]]:D1=D2);Таблица10[[#Заголовки];[остаток]]:H1);ЕСЛИОШИБКА(ПРОСМОТР(;-1/(Таблица1[склад]=C2)/(Таблица1[товар]=D2);Таблица1[кол-во]);))

    Dim StrSql As String
       Dim rs As ADODB.Recordset

Private Sub cmbFunc_AfterUpdate()
       g_Func = Trim(cmbFunc)
End Sub
Private Sub cmbFunc_Change()
       g_Func = Trim(cmbFunc)
End Sub

Private Sub cmbGRNDate1_AfterUpdate()
        cmbGRNDate1.Value = form_date(cmbGRNDate1.Value)
        g_GRNDate1 = Trim(cmbGRNDate1.Value)
End Sub

Private Sub cmbGRNDate2_AfterUpdate()
        cmbGRNDate2.Value = form_date(cmbGRNDate2.Value)
        g_GRNDate2 = Trim(cmbGRNDate2.Value)
End Sub

Private Sub cmbManfac_AfterUpdate()
       g_Manfac = Trim(cmbManfac)
End Sub

Private Sub txtDateFrom_AfterUpdate()
       txtDateFrom.Value = form_date(txtDateFrom.Value)
       g_DateFrom = form_date(txtDateFrom.Value)
End Sub

Private Sub txtDateTo_AfterUpdate()
       txtDateTo.Value = form_date(txtDateTo.Value)
       g_DateTo = form_date(txtDateTo.Value)
End Sub

Private Sub cmbCancel_Click()
       g_Cancel = True
       Unload Me
End Sub

Private Sub cmbOk_Click()
       Save_params
       Unload Me
End Sub

Private Sub cmbTabN_AfterUpdate()
       g_TabN = cmbTabN.Value
End Sub

Public Sub UserForm_Activate()
       If cmbManfac.ListCount <= 0 Then
           If Not rs Is Nothing Then If rs.State Then rs.Close
           cmbManfac.AddItem "*"
           StrSql = " SELECT DISTINCT usotr.usotr_manfac " & _
                    " FROM zeie:maxmast.usotr usotr"
           Set rs = dbdll.rec(client, Forward, StrSql)
           With cmbManfac
              .List = Application.Transpose(rs.GetRows)
              .AddItem "*", 0
              .Value = g_Manfac
           End With
       End If
        '-------------
       cmbFunc.List = Array("*", "pu10", "pu10", "pu10", "pu12", "nv00", "oe", "nv17", "nv13", _
                            "nv17", "pv12", "nv15", "oe", "nv00", "nv10", "pv12", "nv12", 0)
       '------------
       g_Func = cmbFunc.Value
End Sub
Private Sub cmbTabN_Change()
       FilterFio Array(array("usotr_manfac", g_Manfac))
       Application.SendKeys "{right}"
End Sub
Private Sub cmbTabN_Change()
       Application.SendKeys "{right}"
End Sub
Private Sub FilterFio(criteria As Variant)
       StrSql = " SELECT distinct usotr.usotr_manfac,usotr.usotr_tabnum, " & _
                            "trim(" & IIf(criteria(1) = "*", "usotr.usotr_manfac&' - '&", "") & _
                            "usotr.usotr_tabnum&' - '&usotr.usotr_fio) as F1" & _
                            " FROM zeie:maxmast.usotr usotr order by usotr.usotr_manfac,usotr.usotr_tabnum"
       Set rs = dbdll.rec(client, Forward, StrSql)
       rs.Filter = IIf(criteria(1) = "*", 0, criteria(0) & " like '" & criteria(1) & "'")
       With cmbTabN
           .List = Application.Transpose(rs.GetRows(-1, 0, 2))
           .AddItem "*", 0
           .Listindex = 0
       End With
       rs.Close
End Sub

Sub sdf()
      Dim strFolder$
r:  With Application.FileDialog(msoFileDialogFolderPicker)
          If .Show Then
              strFolder$ = .SelectedItems(1)
          ElseIf MsgBox("Ничего не выбрано. Повторить?", 36, "Ну так как?") = 6 Then
              GoTo r
          Else: Exit Sub
          End If
      End With
      Dim strFile$
      With CreateObject("DSOFile.OleDocumentProperties")
          strFile = Dir$(strFolder & "\*.xls*")
          Do While Len(strFile)
              .Open strFolder & "\" & strFile, , 2
              With .SummaryProperties
                  .Author = "Новый автор"
                  .lastsavedby = "Новый автор"
              End With
              .Save: .Close
              strFile = Dir$
          Loop
      End With
End Sub

With ActiveSheet.ChartObjects(1)
     .Height = ActiveWindow.VisibleRange.Height
     .Width = ActiveWindow.VisibleRange.Width
End With

=СУММПРОИЗВ(ЕЧИСЛО(ПРОСМОТР(Дата;$B$9-ЛЕВБ(A3;2)*{1;0}+1;1))*(Артикул=$C$1)*Кол_во)

=G7>0,43

=ЕСЛИОШИБКА(ИНДЕКС(E:E;НАИМЕНЬШИЙ(ЕСЛИ($G$7:$G$12>0,4;СТРОКА($G$7:$G$12);"");СТРОКА(E1)));"")

=ЕСЛИОШИБКА(ПСТР(A8;ПРОСМОТР(1;1/ПСТР(A8;СТРОКА($1:$200);6)/ЕОШ(ПОИСК(".";ПСТР(A8;СТРОКА($1:$200);6)));СТРОКА($1:$200));9);ПСТР(A8;ПОИСК("??.??.??";A8);8))

=ТЕКСТ(A1*30;"МММ")

=СУММ($I$3:$I$12*($H$3:$H$12=C3)*ПРОСМОТР(ПОИСКПОЗ(ПРОСМОТР(ПРОСМОТР(СТРОКА($G$3:$G$12);НАИМЕНЬШИЙ(ЕСЛИОШИБКА(ПОИСКПОЗ($G$3:$G$12;$G$1:$G$12;);"");СТРОКА($A$1:ИНДЕКС($A:$A;СЧЁТЗ($G$3:$G$12)))));СТРОКА($G$3:$G$12);$G$3:$G$12);$A$3:$A$18;);СТРОКА($B$3:$B$18)-2;$B$3:$B$18))

Sub SheetsList()
     With CreateObject("adodb.connection")
         .Open "Provider=microsoft.ace.oledb.12.0;" & _
                 "data source=" & Parent.FullName & ";" & _
                 "extended properties=excel 12.0 macro;"
         .cursorlocation = 3
         With .OpenSchema(19)
             .Filter = "table_name like '*$*' and cardinality=0 and table_name<>'" & Me.Name & "$'"
             [A1].Resize(.RecordCount) = Application.Transpose(.getrows(-1, 0, 2))
             .Close
         End With
         .Close
     End With
End Sub

=(C36-B33)/СЧИТАТЬПУСТОТЫ(B2:B32)