Sub Макрос1()

    Application.ScreenUpdating = False 'Отключаем обновление экрана
    Sheets("главный").Select
    
    'Получаем кол-во заполененных строк'
    Dim LastRow As Long, i As Long
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 11 To LastRow
        If Cells(i, 11).Value = "" Then Exit For
    Next
    
    'Заполенение 1 столбца'
    Sheets("второй").Select
        For i = 11 To LastRow
            Cells(i - 5, 5).Formula = "=LOOKUP(2,1/(($A" & i - 5 & "=главный!$A" & i & ":$A$" & LastRow & ")*($B" & i - 5 & "=главный!$B" & i & ":$B" & LastRow & ")*($C" & i - 5 & "=главный!$C" & i & ":$C" & LastRow & ")*($D" & i - 5 & "=главный!$D" & i & ":$D" & LastRow & ")),главный!$E" & i & ":$E" & LastRow & ")"

If Cells(i - 5, 5) = 0 Then
Cells(i - 5, 5).Value = ""
End If
Next i
Application.ScreenUpdating = True

End Sub

=ПРОСМОТР(2;1/(($A6=нормы!$A$11:$A$10399)*($B6=нормы!$B$11:$B$10399)*($C6=нормы!$C$11:$C$10399)*($D6=нормы!$D$11:$D$10399));нормы!$E$11:$E$10399)

Sub Macros()

Dim LastRow As Long, CountString As Long
   LastRow = Cells(Rows.Count, 1).End(xlUp).Row' определяем кол-во строк в нашему диапазоне (непустых)
    For CountString = 11 To LastRow
        If Cells(CountString, 11).Value = "" Then Exit For
    Next

    For i = CountString To LastRow
         Range(i, 5).Formula = "=Просмотр(2;1/(($A(i-6)=нормы!$A$11:$A$10399)*($B(i-6)=нормы!$B$11:$B$10399)*($C(i-6)=нормы!$C$11:$C$10399)*($D(i-6)=нормы!$D$11:$D$10399));нормы!$E$11:$E$10399)"