VBA：一致した場合、一部のみ別シートへコピーし貼り付け

Question

前提・実現したいこと

sheet1のA列とsheet2のB列が一致する場合、sheet2の J1～AA1000 の該当行をsheet1の AN列 以降にコピーし貼り付ける
※sheet2の J1～AA1000 は最終行がデータによって異なりますが一旦、固定にしています。

Subコピーする場所にて、コピーし貼り付け自体は対応できたのですが
sheet1のA列とsheet2のB列が一致する場合が自身で対応できず困っております。

該当のソースコード

Sub sheet2からsheet1へコピー(ByVal clear_flag As Boolean)
    Dim x As Long
    Dim i As Long

    With Sheets("sheet2")
        x = .UsedRange.Cells(.UsedRange.Count).Row
        If clear_flag = True Then
            .Range("B2:B" & x).Interior.Pattern = xlNone
        End If
        For i = x To 2 Step -1
            If Sheets("sheet1").Range("A:A").Find(What:=.Cells(i, 2), LookAt:=xlWhole) Then
                Call コピーする場所
            End If
        Next i
    End With
End Sub

Sub コピーする場所()

  Dim sh_org As Worksheet
  Dim sh_dst As Worksheet
  Set sh_org = Sheets("sheet2")
  Set sh_dst = Sheets("sheet1")

  sh_org.Range(sh_org.Cells(1, "J"), sh_org.Cells(1000, "AA")).Copy _
      Destination:=sh_dst.Range("AN1")
End Sub

Answer 1

こういうことですか？

Dim foundCell As Range
Set foundCell = Sheets("sheet1").Range("A:A").Find(What:=.Cells(i, 2), LookAt:=xlWhole)
If Not foundCell Is Nothing Then
    .Range(.Range("J" & i), .Range("AA" & i)).Copy foundCell.Offset(, 39)
End If

Comments

[退会済みユーザー]

ご回答ありがとうございます。

意図が汲み取れず大変申し訳ないのですが、ご回答いただいたコードのみでは対応できないかと思います。
どの部分に組み込む想定でご回答いただいたかご教示いただけますと幸いです。

[jinoji]

sheet1のA列とsheet2のB列が一致する場合、とおっしゃる意味が、
「sheet1のA列とsheet2のB列、それぞれの全てのセル同志で完全一致する場合」という話なのか、
それとも、「sheet2のB列の任意のセルの値が、sheet1のA列のどこかに存在した場合、（そのsheet1の該当行にsheet2の値をコピーする）」ということなのかがつかめなかったので、仮に後者だと想定して書いたものです。

[退会済みユーザー]

ご確認ありがとうございます。
後者で齟齬ございません。

前回のコメントと重複し申し訳ないですが、いただいたコードだけだと対応できないと思いますので
Sub sheet2からsheet1へコピー を使用する前提で伺います。

For i = x To 2 Step -1
　　ここに組み込む理解で合っているでしょうか？
Next i

[jinoji]

その想定で書きました。

[退会済みユーザー]

こちらで対応できました。
詳細かつ細やかにご連絡いただきまして本当にありがとうございました。