Dim a As Date, b As Date
a = Me.datas
b = Me.datapo
summ.Value = WorksheetFunction.SumIfs(Sheets("Íà÷èñëåíèÿ").Range("g:g"), Sheets("Íà÷èñëåíèÿ").Range("k:k"), ">=" & a, Sheets("Íà÷èñëåíèÿ").Range("k:k"), "<=" & b)

If Sheets("Оплата").Range("e" & i).Value = "р/с" Then
 Range("e" & i).Value = Application.IfError(Application.VLookup(Sheets("Оплата").Range("F" & i), Sheets("Начисления").Range("H:N"), 7, 0), "р/с")
 End If

Private Sub worksheet_activate ()
Dim LastRow As Long, i As Long
LastRow = Ceels(Rows.Count, 2).End(x1Up).Row
For i = 3 to LastRow
Range(“N” & i).value = Application.IfError(Application.VLookup(
Sheets(“Оплата”).Range(“F” & i), Sheets(“Начисления”).Range(“H:N”), 7, 0), “”)
Next
End Sab

Private Sub sformirovat_click()
sheets ("Отчет 1").Select
Range ("C8").FormulaArray = "=ЕСЛИОШИБКА(ВПР(Е6;ЕСЛИ('ЛИСТ 1'!В3:В100=С12;'ЛИСТ 1'!А3:Z100;"");5;0);"-")"
'дальше идут остальные формулы
end sub

Option Explicit
Private Sub Workbook_Open()
   
  'ОСАГО
Dim wb As Workbook
Dim ar As Range, ar2 As Range
Dim c As Range, c2 As Range
Dim dtRazn%, dtRazn2%
Dim s$, s2$
Dim Msg$, Msg2$
    On Error Resume Next
For Each ar In ['ОСАГО'!E:E].SpecialCells(2, 1).Areas
For Each c In ar.Cells
dtRazn = Date - c
s = ""
Select Case dtRazn
                Case Is > 0: s = "На " & Abs(dtRazn) & "дн. просрочен "
                Case 0: s = "Сегодня заканчивается "
                Case Is >= -5, Is > 0: s = "Через " & -dtRazn & " дн. заканчивается "
End Select
            If s <> "" Then Msg = Msg & IIf(Msg <> "", vbCrLf, "") & s & _
                "страховой полис ОСАГО на автомобиль " & c.Offset(, -3) & _
                " регистрационный номер " & c.Offset(, -4)
Next
If Msg <> "" Then MsgBox Msg: Debug.Print MsgNext
'АКБ
For Each ar2 In ['АКБ'!'E:E].SpecialCells(2, 1).Areas ' Срабатывает ошибка
For Each c2 In ar2.Cells
dtRazn2 = Date - c2
s2 = ""
Select Case dtRazn2
                 Case Is > 0: s2 = "Можно произвести замену АКБ "
End Select
            If s2 <> "" Then Msg2 = Msg2 & IIf(Msg2 <> "", vbCrLf, "") & s2 & _
                "на автомобиле " & c.Offset(, -2) & _
                " регистрационный номер " & c.Offset(, -3)
Next
If Msg2 <> "" Then MsgBox Msg2: Debug.Print Msg2
Next
End Sub