Sub FindCopy()
Dim Rng As Range
Dim Fnd As Range
Dim i As Long, Qty As Long
Set Fnd = Range("L1")
Qty = Evaluate("countif(L:L,""*Cboe CXE*"")")
For i = 1 To Qty
Set Fnd = Range("L:L").find("Cboe CXE", Fnd, , xlPart, , , False, , False)
If Rng Is Nothing Then Set Rng = Fnd Else Set Rng = Union(Rng, Fnd)
Next i
Rng.Copy Range("M1")
End Sub