let
    Source = Excel.CurrentWorkbook(){[Name="1sd"]}[Content],
    originalOrder = Table.AddIndexColumn(Source, "id"),
    local = Table.Group(originalOrder, {"OKRID"}, {"temp", (sub) =>
        Table.AddColumn(sub, "Маркер", each if [DATE_V] = List.Max(sub[DATE_V]) then "Да" else "Нет")
    })[temp],
    common = Table.Combine(local),
    #"Sorted Rows" = Table.Sort(common,{{"id", Order.Ascending}}),
    result = Table.RemoveColumns(#"Sorted Rows", {"id"})
in
    result

Sub Delete_Rows()

Dim Prom_arr(), ActiveDeals_arr(), nesw_arr() As Variant
Dim arr()
Dim lcnt& 'счетчик элементов массива

Prom_arr = ThisWorkbook.ActiveSheet.Range("A1").CurrentRegion.Value
close_deals = Workbooks("Отчет.xlsm").Sheets(1).Range("A1").CurrentRegion.Value


Z = "06.Закрыта/Заключена"

For lr = UBound(close_deals, 1) To LBound(close_deals, 1) Step -1
    If Z = close_deals(lr, 14) Then
    x = close_deals(lr, 8)
    ff = False
        For lrr = UBound(Prom_arr, 1) To LBound(Prom_arr, 1) Step -1
            If x = Prom_arr(lrr, 28) Then
           ff = True
            Exit For
            End If
        Next lrr
    
    If Not ff Then
'тут надо добавлять строки из диапазона выше(по найднным индексам) в массив.  
    End If
    
End If
Next lr

End Sub

zakl.Activate
For j = 2 To lLastRow&
    If Cells(j, 5) = data_now  Or Cells(i, 3) = DateAdd("d", -4, data_now)  And Cells(j, 4) = "принята" Then
        inn = Cells(j, 11)
        summ_deal = Cells(j, 31)
        With reestr
        For l = 2 To lLastRow&
            If .Cells(l, 5) = inn And .Cells(l, 12) = "все норм" Or .Cells(l, 12) = "тоже норм" And .Cells(l, 15) = "Да" Then
                .Cells(l, 12).Value = "Пшено есть"
                .Cells(l, 11).Value = data_now
                .Cells(l, 20).Value = summ_deal  
...
        Next
        End With