How do I...search range of values taking input from a column and copy it to different sheet

See more:

VB

Hello,
I have some records which needs to be searched in column A of an excel and if those are present in column A then the whole row needs to be copied to sheet2 of excel. So far I have tried this . This is for taking one input at a time . But I want to take input multiple values as a range of values. How to do this ..

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("A" & i & ":Z" & i)
        If InStr(c.Text, strsearch) Then
            tocopy = 1
        End If
    Next c
    If tocopy = 1 Then
        Rows(i).Copy Destination:=Sheets(2).Rows(j)
        j = j + 1
    End If
tocopy = 0
Next i

how to search for multiples values at a time . please help