Find Next is only working on the first iteration
<p><a href="https://i.stack.imgur.com/olApq.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/olApq.png" alt="enter image description here"></a></p>

<p>I have an issue regarding my find next, is most probably that I am writing the code wrongly. So if I have the number 810(which is f), find the address, again 810find the address of the 810 other location and so on...</p>

<p>Then I have the first two working fine. So when findnext for the first time it works the way I want, pasting to the last cell, but the other ones do not work. So When I find next for the second time, it does not copy and paste anymore. Any idea how I can fix it?</p>

<pre><code>With RgnScenarioScenario

    Set f = .Find(What:=f, LookIn:=xlValues, LookAt:=xlWhole)
    WsScenarios.Activate
    f.Select
    q = f.Address
    Set x = Range("A:A").FindNext(f)
    x.Select
    z = x.Address
    Set m = Range("A:A").FindNext(f)
    m.Select
    n = m.Address
    Set k = Range("A:A").FindNext(f)
    k.Select
    w = k.Address
    Set a = Range("A:A").FindNext(f)
    a.Select
    g = a.Address

    If q &lt;&gt; z Then

    Range(z).Offset(0, 5).Select
    Range(ActiveCell, ActiveCell.Offset(0, ScenarioLastColumn - 6)).Copy

    WsOutput.Activate
    WsOutput.Cells(lLastRow, Columnf).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True

    Else

    End If

    If z &lt;&gt; n Then

    Range(n).Offset(0, 5).Select
    Range(ActiveCell, ActiveCell.Offset(0, ScenarioLastColumn - 6)).Copy

    WsOutput.Activate
    WsOutput.Cells(lLastRow, Columnf).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    Else

    End If

    If n &lt;&gt; w Then

    Range(n).Offset(0, 5).Select
    Range(ActiveCell, ActiveCell.Offset(0, ScenarioLastColumn - 5)).Copy

    WsOutput.Activate
    WsOutput.Cells(lLastRow, Columnf).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    Else

    End If

    If w &lt;&gt; g Then

    Range(n).Offset(0, 5).Select
    Range(ActiveCell, ActiveCell.Offset(0, ScenarioLastColumn - 5)).Copy

    WsOutput.Activate
    WsOutput.Cells(lLastRow, Columnf).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    Else

    End If

    End With
    Next f
</code></pre>

<p>What my code is looking for is range value of Scenario ID, in this case 810. as you can see in the first print screen I have 3 times 810. in the below just identify 2. This is the issue, it should identify as many as it has. I am struggling at this piece. I tried Autofilter but did not solve my issue. It is all about the Action ID. Has 3, so, my code should bring the 3 </p>