silmukka ongelma

Millainen makro tulisi tehdä että saisi tietystä sarakkeesta etsittyä tiettyä sanaa, ja sitten kun sana/sanat on löydetty niin makro kopioisi nämä rivit eri sheetille. Olen aloittelija asian suhteen joten olisi tarvetta viisaapien neuvoille.

Tälläista olen ite yrittänyt...

Sub NokHaku()

Dim Solu As Range
Dim OkNok As Range
Set OkNok = Range("E:E")

For Each Solu In OkNok

If Solu = "Nok" Then
Selection.EntireRow.Select
Selection.Copy
Sheets("Sheet2").Select
Rows("2:2").Select
ActiveSheet.Paste
End If

Next Solu

End Sub

Ohjelma ei herjaa mitään eikä se kyllä kopioikkaan oikeaa riviä.
Onko järkee vai ei....? kiitos jo etukäteen