VBA loop through list

Hey gurus,

I have managed to write the below code to extract each line in a sheet that contains the data which is written in the inputbox and paste in to another sheet. I need to update this to loop through a list of data rather than use an inputbox for each. A new sheet will also need to be created during the loop so that the lines are pasted in to separate sheets.

strsearch = CStr(InputBox(""))

lastline = Range("A15000").End(xlUp).Row
j = 1

For i = 1 To lastline
    For Each c In Range("C" & i & ":Z" & i)
        If c.Text = strsearch Then
            tocopy = 1
        End If
    Next c
    If tocopy = 1 Then
        Rows(i).Copy Destination:=Sheets(3).Rows(j)
        j = j + 1
    End If
tocopy = 0
Next i

I haven't had much luck on my own thus far :/ Any help would be much appreciated! Thanks!