Sub Macro1()
' Macro1 Macro
Dim batStartRow As Long, batEndRow As Long
With Sheets(ActiveSheet.Name)
    batStartRow = .Range("I:I").Find(what:="V00", after:=.Range("I1")).Row
    batEndRow = .Range("I:I").Find(what:="Y99", after:=.Range("I1"), searchdirection:=xlPrevious).Row
End With
Debug.Print batStartRow & " ----  " & batEndRow
End Sub