VBA初心者 ある指定した文字列を含む行を、別の指定した文字列の含まれる行の下に挿入貼り付けしたい

Question

VBA初心者です。

ある指定した文字列が含まれる行をコピーして、（文字列が含まれているのは、E列とF列）
別の指定した文字列が含まれる行の下に、挿入貼り付けをしたいと思っていますが、うまくできません。
いろいろなサイトを検索して、下記のコードを作ってみましたが、エラーにもなりませんが、望む結果になりません。（というか、変化が見られない）

ご教示の程、よろしくお願いします。

 With Worksheets(1)
    
    Dim a As String
    
    a = InStr(Cells(4.1), "別の指定した文字列")
        
    If InStr(ActiveCell.Value, "指定した文字列*") <> 0 Then
    Range("A:O").Cut
    Cells(a + 1).Insert Shift:=xlDown
    
    End If
    End With

Comments

[bebebe_]

こんな感じではどうでしょう

Dim a As Variant
Dim b As Variant

With Worksheets(1)

Set a = .Range("E:E,F:F").Find(What:="コピー元検索用文字列")

Set b = .Range("E:E,F:F").Find(What:="貼り付け先検索用文字列")

If a Is Nothing Or b Is Nothing Then Exit Sub

.Rows(a.row).Cut

.Rows(b.row + 1).Insert

End With

[Tommy]

ありがとうございます。1行は無事貼り付け先の下に挿入できたのですが、
連続した複数行の場合、どうすればいいでしょうか。
コピー元の文字列は、数行あり、貼り付け先の文字は一列にしかありません。
引き続きご教示いただけますと幸いです。

[bebebe_]

複数行ある場合等はもう少し前提条件が定まっていないと答えようがないです。
現状だとE:F列の検索ワードが一致した行を移動していますがこれを複数回行うとなると移動させた行がまた検索に引っかかってしまいます。
ぱっと思いつく限りだと
コピー元になるセルは貼り付け先のセルより上にしかない等の条件があるか
対象の行を一度別シートに移動させ全部移動させて検索に引っかからなくなってから貼り付け先へ移動させる等の方法でしょうか。

[Tommy]

条件の説明が足らず、申し訳ありません。
コピー元となるセルは、貼り付け先セルより、必ず下にいます。
またコピー元となるセル（指定した文字列を含む）は、必ず連続しています。

Answer 1

連続した行のまとまりを1度だけ移動させるという動作ならこうでしょうか

    Dim a1 As Range
    Dim a2 As Range
    Dim b As Range

    With Worksheets(1)

        Set b = .Range("E:F").Find(What:="貼り付け先検索用文字列")
        
        Set a1 = .Range("E:F").Find(What:="コピー元検索用文字列")
        
        If a1 Is Nothing Or b Is Nothing Then Exit Sub
        If a1.row = b.row + 1 Then Exit Sub
        
        Set a2 = .Range("E:F").FindPrevious(a1)        

        .Range(a1, a2).EntireRow.Cut
        .Rows(b.row + 1).Insert

    End With

Comments

[Tommy]

回答ありがとうございました。
無事望む通りの結果になりました！
この度は、私のつたない説明にもかかわらず、丁寧にご回答いただきましてありがとうございました。
またちょくちょく質問すると思うので、回答いただけると嬉しいです！
よろしくお願いします。

Answer 2

ある指定した文字列が含まれる行をコピーして、（文字列が含まれているのは、E列とF列）
別の指定した文字列が含まれる行の下に、挿入貼り付け

文面通りに書くとこんな感じ。

Option Explicit
Sub Sample()
    With Worksheets(1)
        Dim aru As Range, betu As Range
        Set aru = .Range("E:F").Find("ある指定した文字列", LookIn:=xlValues, LookAt:=xlPart)
        Set betu = .Range("E:F").Find("別の指定した文字列", LookIn:=xlValues, LookAt:=xlPart)
        If aru Is Nothing Or betu Is Nothing Then Exit Sub
        aru.EntireRow.Copy
        betu.Offset(1).EntireRow.Insert
   End With
End Sub

Comments

[Tommy]

ありがとうございます。1行は無事貼り付け先の下に挿入できたのですが、
連続した複数行の場合、どうすればいいでしょうか。
コピー元の文字列は、数行あり、貼り付け先の文字は一列にしかありません。
引き続きご教示いただけますと幸いです。

[退会済みユーザー]

＞数行あり
あいまいな話ではプログラムは組めません。
何行あるのかを判断する基準はありますか？

[退会済みユーザー]

「ある指定した文字列」を含む行が複数連続してるという意味ですか？
連続してない「ある指定した文字列」を含む行が複数あるという可能性はないのですか？

実行する度に、「ある指定した文字列」を含む行が増えるのではないですか？
どうも、実際の表がイメージ出来ません。

[Tommy]

説明が足らず、申し訳ありません。
「ある指定した文字列」を含む行が複数連続してるという意味ですか？
→おっしゃる通りです。連続していない行はございません。

また別の指定した文字列は、全体で一行しか存在しません。