copy rows containing given values

I have a workbook with data in columns A:HN.

What I'm trying to do is copy any rows where the range O:HN contains a 3, 4, 5, 6 or 7 to a new sheet.

I have been using the following code:

Sub customcopy()
Dim strsearch As String, lastline As Integer, tocopy As Integer

strsearch = CStr(InputBox("enter the string to search for"))
lastline = Range("A65536").End(xlUp).Row
j = 1

For i = 1 To lastline
    For Each c In Range("o" & i & ":HN" & i)
        If InStr(c.Text, strsearch) Then
            tocopy = 1
        End If
    Next c
    If tocopy = 1 Then
        Rows(i).Copy Destination:=Sheets(4).Rows(j)
        j = j + 1
    End If
tocopy = 0
Next i

End Sub

and running it 5 times (with 3 as string, then 4, then 5 etc...)

However, I'm getting duplicates. I imagine where rows contain for example a 5 and 6? Is there a more accurate way to do this?