Find data below a blank cell in between 2 words

[ceclay]

I have this table below wherein I would like to get the data below the blank cell in between "Participant" and "Close"

Note: <> means Blank Cell

<>​
103
105
Open
<>
Participant
<>
Heather
103
105
<>
Lawrence
102
<>
Judel
105
1042
<>
Close

<>​

Open

I have this code below but It will also get the data beyond the "Participant" and "Close"

Sub Golf()
Application.ScreenUpdating = False
Dim Sh As Worksheet, Sr As Range, Sf As Range, wA As Variant
Dim Sf1 As Range, wA1 As Variant
Const FindWhat As String = ""
Set Sh = Sheets("Golf Paste Here")
  Set Sr = Sh.Range("A1:A80000")
sRow = 2
  Set Sf = Sr.Find(FindWhat, , xlValues, xlPart)
  If Not Sf Is Nothing Then
    cell = Sf.Address
    Do
      wA = Sf.Resize(2, 1).Value
      With Sheets("Sheet2")
        .Range("A" & Rows.Count).End(xlUp)(2).Resize(2, 1).Value = wA
        .Range("C" & sRow).Resize(1, 2).Value = Application.Transpose(wA)
        sRow = sRow + 1
      End With
      Set Sf = Sr.FindNext(Sf)
    Loop While Not Sf Is Nothing And Sf.Address <> cell
  End If
Application.ScreenUpdating = True
End Sub

 

[DanteAmor]

Now, I have this table below wherein I would like to get the data below

Hello, with pleasure I continue to support you, but before continuing with the new request, could you comment, the macro from post #4 resolved your request from post #3?

 

[ceclay]

.

 

[ceclay]

Hello, with pleasure I continue to support you, but before continuing with the new request, could you comment, the macro from post #4 resolved your request from post #3?

Hi. Yes its correct. But when i tried to plugged it on reply #7 im not sure why i am having an error.

 

[DanteAmor]

Hi. Yes its correct. But when i tried to plugged it on reply #7 im not sure why i am having an error.

The layout of post #3 is different from post #7, even the output is completely different.
That is why the macro does not work. For the new you require, you need a new macro.