=ЕСЛИОШИБКА(ИНДЕКС($B:$B;ПОИСКПОЗ(МИН(A3:$A$500);A3:$A$500;0)+СТРОКА(D1));B2)

=ИНДЕКС(Лист2!$1:$1048576;Лист1!$E$3;СТОЛБЕЦ())

 Sub dateee()
d = #7/1/2020#
MsgBox Worksheets(2).Columns("A:A").Find(What:=Format(d, "m.YYYY"), LookAt:=xlPart, LookIn:=xlValues).Row

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("N4")) Is Nothing Then
Dim r As Range, c As Range

    Set r = Columns(1).Find([C4].Value, LookIn:=xlValues, LookAt:=xlWhole)
    Set c = Rows(7).Find([I4].Value, LookIn:=xlValues, LookAt:=xlWhole)
        
    If IsEmpty([C4]) Or r Is Nothing Then
        MsgBox "НЕ ЗАПОЛНЕН ИЛИ УКАЗАН НЕВЕРНЫЙ РАЙОН , ПРОВЕРЬТЕ ВВЕДЕННЫЕ ДАННЫЕ И ПОВТОРИТЕ ПОПЫТКУ!"
        Exit Sub
    ElseIf IsEmpty([I4]) Or c Is Nothing Then
        MsgBox "НЕ ЗАПОЛНЕН ИЛИ УКАЗАН НЕВЕРНЫЙ ТИП, ПРОВЕРЬТЕ ВВЕДЕННЫЕ ДАННЫЕ И ПОВТОРИТЕ ПОПЫТКУ!"
        Exit Sub
    ElseIf IsEmpty([N4]) Then
        MsgBox "НЕ УКАЗАНО КОЛИЧЕСТВО! ПРОВЕРЬТЕ ВВЕДЕННЫЕ ДАННЫЕ И ПОВТОРИТЕ ПОПЫТКУ!"
        Exit Sub
    Else
        Cells(r.Row, c.Column) = Cells(r.Row, c.Column) + [N4].Value
    End If

End If

End Sub

Sub dddd()
Dim r As Range, c As Range
Set r = Columns(1).Find([C4].Value, LookIn:=xlValues, lookat:=xlWhole)
Set c = Rows(7).Find([I4].Value, LookIn:=xlValues, lookat:=xlWhole)
Cells(r.Row, c.Column) = [N4].Value
End Sub

Sub fd()
Dim lr As Long, lcol As Long
Dim sh As Worksheet
Dim rng As Range
Application.ScreenUpdating = False

Z = 0
For Each sh In Worksheets
    sh.Activate
    lr = ActiveSheet.UsedRange.Rows.Count
    lcol = ActiveSheet.UsedRange.Columns.Count
    x = Application.WorksheetFunction.Count(Range(Cells(1, 1), Cells(lr, lcol)))
    Z = Z + x
Next sh
    Worksheets(1).Activate
    Worksheets(1).Cells(1, 2) = Z + 1
    
Application.ScreenUpdating = True
End Sub

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column = 2 And Target.Row < 20 Then [f2] = Selection.Value
If Target.Column = 3 And Target.Row < 20 Then [h2] = Selection.Value
If Target.Column = 4 And Target.Row < 20 Then [h5] = Selection.Value

End Sub

Sub dd()
Dim i As Long
Dim rng As Range

For i = 6 To 42

Set rng = Range("G" & i & ":R" & i)
k = Application.WorksheetFunction.CountIf(rng, [I3].Value)
k2 = Application.WorksheetFunction.CountIf(rng, [J3].Value)
k3 = Application.WorksheetFunction.CountIf(rng, [k3].Value)
If k >= 1 And k2 >= 1 And k3 >= 1 Then Cells(Cells(Rows.Count, 6).End(xlUp).Row + 1, 6) = Cells(i, 6)

Next i

End Sub

=ИНДЕКС(Data!$1:$1048576;ПОИСКПОЗ(Лист1!$B10;Data!$A:$A;0);ПОИСКПОЗ($C$8;Data!$1:$1;0)+СТОЛБЕЦ()-3)

If lCol Then wsDataSheet.Cells(lLastRowMyBook, 1).Resize(rCopy.Rows.Count).Value = oAwb & " " & wsSh.Name