Sub LastDate_()
Dim i As Long
Dim iLastRow As Long
Dim FoundInnos As Range
Dim FAdr As String
 iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
  With Workbooks("Журнал КДС.xls").Worksheets("Лист1")
    For i = 2 To iLastRow
     If Cells(i, "D").Interior.ColorIndex = -4142 Then          'нет заливки
      Set FoundInnos = .Columns("H").Find(Cells(i, "D"), , xlValues, xlWhole, xlByRows, xlPrevious)
      If Not FoundInnos Is Nothing Then
        FAdr = FoundInnos.Address
        Do
         If FoundInnos.Offset(, -2) = "положена" Or FoundInnos.Offset(, -2) = "посылка" Then
           Cells(i, "E") = FoundInnos.Offset(, -7)
           Exit Sub
         End If
          Set FoundInnos = .Columns("H").Find(Cells(i, "D"), FoundInnos, xlValues, xlWhole, xlByRows, xlPrevious)
        Loop While FoundInnos.Address <> FAdr
      End If
     End If
    Next
  End With
End Sub