l: Sheets("Прих").Activate
 On Error GoTo ennd
 Columns("a:a").Find(What:=Dt, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:= _
        False, SearchFormat:=False).Activate
RSPO = ActiveCell().Row 'строка искомого Прих
SPO = Cells(RSPO, 5) 'сальдо искомого Прих
ennd: Dt = Format(Dt - 1, "00.00") ' число.месяц поиска
Dt = "<" & Dt ' Попробовал как в фильтре, но не проходит поиск   !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
GoTo l

 P.S.Чтобы наступила смерть - необходима жизненная сила !!!  

Dt = Format(Dt, "00000")
Columns("a:a").AutoFilter Field:=ActiveCell.Column, Criteria1:="<" & Dt
Range("a" & Rows.Count).End(xlUp).Select

EndRow = Range("A1").End(xlDown).Row
Dim Sn As Range
For Each Sn In Range("A2:A" & EndRow)
    r = Sn.Row
    ss = Format(Sn, "00000")
               If Format(Sn, "00000") - Format(ИНТЕРЕСдата, "00000") > 0 Then
       r = Sn.Row - 1
    GoTo l
    End If
Next
l: