Copy values only

Many thanks for this and apologies for the lack of code tags - totally new to the forum and didn't know how to do that (do now though cheers)

This looks like should work, but the End If function now doesn't seem to work so just loops continuously?

Dim i3 As Long, iMatches3 As Long
Dim aTokens3() As String: aTokens3 = Split("Niche", ",")
For Each Cell In Sheets("Data input").Range("a4:a9999")
    If (Len(Cell.Value) = 0) Then Exit For
        For i3 = 0 To UBound(aTokens3)
            If InStr(1, Cell.Value, aTokens3(i3), vbTextCompare) Then
                iMatches3 = (iMatches3 + 1)
                Sheets("data input").Rows(Cell.Row).Copy
                Sheets("Niche Floor").Rows(iMatches3).PasteSpecial xlValues
            End If
        Next
Next

Any further suggestions to resolve this issue?

Cheers

Actually from using F8, it appears to loop once it's gets to the second Next, and goes back to the If (Len.....) line, so this is the section that loops: -

    If (Len(Cell.Value) = 0) Then Exit For
        For i3 = 0 To UBound(aTokens3)
            If InStr(1, Cell.Value, aTokens3(i3), vbTextCompare) Then
                iMatches3 = (iMatches3 + 1)
                Sheets("data input").Rows(Cell.Row).Copy
                Sheets("Niche Floor").Rows(iMatches3).PasteSpecial xlValues
            End If
        Next
Next

Or use this line.

  If cell = vbNullString Then Exit For

Brilliant - think got it all sorted.

Many thanks for your help AB33