Цикл с динамической отправной точкой

Question

Я пытаюсь перебрать список и пропустить его, когда найдет что-то.Но он остается в цикле по первоначальному списку.Я действительно пытаюсь вывести начальную и конечную строки каждой подсборки.В приведенном ниже коде я хочу, чтобы rw_srt обновлялся с найденной строкой в ​​цикле, но это не работает.

Sub asdf()

Dim Arr4 As Variant
rw_srt = 8
rw_end0 = 763

    For Each cell In Range("B" & rw_srt & ":B" & rw_end0 - 1)
        If cell.Value = 5 And Range("I" & cell.Row).Value <> "" Then
            Arr4 = Split(cell.Value, ",")   'stores the starting row of the subassembly
            MsgBox cell.Row
            'find next level 4
            With Range("B" & cell.Row & ":B" & rw_end0 - 1)
                Set Rng = .Find(What:="4", After:=.Cells(.Cells.Count), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
                If Not Rng Is Nothing Then
                    Application.Goto Rng, True 'value found
                    rw_srt = ActiveCell.Row
                    Arr4 = Split(cell.Value, ",")   'stores the ending row of the subassembly
                    MsgBox ActiveCell.Row
                End If
            End With


        End If
    Next cell

End Sub