Finding Keywords On A Large List

I need to setup a macro that will search for a keyword in a list with about 21000 rows. When the macro finds the keyword it cuts the row out and moves it to another sheet. I'm having a few problems

1. I don't know how to make the function search until it can't find the keyword anymore, then move on to the next word

2. I can't get it to select what it finds it finds the cell but I don't know how to select that cell once its found.



Sub Search()
'
' Search Macro
'
Dim keyword As String
Dim x, y, z As Long
For x = 1 To 53
Sheets("Test1").Select
Range("A" & x).Select
keyword = Selection.........