Just trying to capture data in a loop

[hitbid]

I am doing an exercise where I am searching countless data entries in a bad format and finding what I need. Below is very sample data. I can find the midway point all the time fine. But it is getting the data between MidwayPoint and NewStart.
I tried IF statements but keep getting locked up, and the fact that the data here isn't always stacked neatly. Sometimes spaces jump in like you see below.
How Can I best loop to always capture all the data between MP and NS?

Start

data

data

data

data

data

Midway Point

data

data

data

NewStart

data

data

data

<tbody>
</tbody>

indi = 1 For i = 1 To lastrow If (InStr(1, inarr(i, 1), "Invoice # S", vbTextCompare)) > 0 Then If (InStr(1, inarr(i + 7, 1), "Shipping Instr :", vbTextCompare)) > 0 Then If WorksheetFunction.CountA(inarr(i + 8, 1)) > 0 Then Num8 = inarr(i + 8, 1) ElseIf WorksheetFunction.CountA(inarr(i + 8, 1)) = 0 Then Num8 = "" End If If (InStr(1, inarr(i + 7, 1), "Shipping Instr :", vbTextCompare)) = 0 Then Num8 = "" End If Num7 = Trim(Split(inarr(i + 7, 1), "Shipping Instr :")(1)) Else: Num7 = "" End If outarr(indi, 6) = Num7 & Num8 indi = indi + 1 End If Next i

<tbody> </tbody>