if find specify word copy all the row to anther sheet

Hi everyone .
Hope you are fine
I need you help regarding very Big Excel file .
I need a VBA That check from column P to Z and if find specify word copy all the row to another sheet and i need open search dialog for write the specify word .
Main Data is in Sheet1 and Data must placed is Sheet2
Really appreciate for your time and effort.

Like this?
Code tranfers data from active sheet to the sheet with name Sheet2

Code:

---

Sub dotch()
myValue = InputBox("Enter the word you are looking for.", "Word?")
    For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1 'assuming that row 1 contains headers.
    For j = 16 To 26
        If Cells(i, j) = myValue Then
            Range("A" & i & ":Z" & i).Copy Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Offset(1) ' Change sheet name and range if necessary.
            Cells(i, 1).EntireRow.Delete 'Watch out! This line of code deletes the rows on sheet 1 that have been transferred to sheet2
        End If
    Next
    Next
End Sub

---

Thanks for your help but ıt does not works i uploaded the sample file for example when i search L180C HL it does not gıve me any result but it is available Can you please try it again .

parscon

Your database is rubbish no headers, fields missing and to many variants in the search field
I have managed to cobble together something that works it will find anything for ex L180C HL or partial text
This will find everything to what you input , probably not the result you were after but try it

NB it does not delete anything from sheet1 just puts the search data into sheet2 ok
Rob

Rob342ö Really appreciate for your great works and help.