vba - 列内の文字列を検索し、隣接するセルに特定の文字列が存在するかどうかに応じて行全体をコピーするための VBA

Question

私はVBAがまったく初めてです。数値と文字列を含むExcelデータシートがあります。列で「CYP」と言う特定の文字列を検索したい次に、列Cでその行のセルを探し、セルCの文字列を含む行全体をコピーします。同じワークブックのシート2に貼り付けてループしたい再度、列に残っている CYP を探します。

これについて私を助けてくれませんか？

pnutsからの提案の後、これが私のマクロコードです

Sub Macro1()
'
' Macro1 Macro
'

'
    Columns("I:I").Select
    Range("I729").Activate
    Selection.Find(What:="cyp", After:=ActiveCell, LookIn:=xlValues, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
    ActiveWindow.SmallScroll Down:=5
    Range("C749").Select
    Selection.Copy
    Columns("C:C").Select
    Range("C734").Activate
    Selection.Find(What:="EPT001TT0601C000151", After:=ActiveCell, LookIn:= _
        xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext _
        , MatchCase:=False, SearchFormat:=False).Activate
    Rows("746:750").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet2").Select
    ActiveSheet.Paste
End Sub

このコードでは、CYP が I749 で見つかり、セル C749 が文字列としてコピーされ、同じ文字列を含む列 C の最初の行が検索され、続いて行全体がコピーされ、さらに 4 行がコピーされ、同じワークブックのシート 2 に貼り付けられます。私が望んでいたのは、このアクションを列 I の最後まで何度も繰り返し、同じアクションを繰り返すことでした。

ありがとうございました！