配列の要素が、どこに何個格納されているか見極めてないのと違いますか？
 
 ＞' MyList = Tanka_Sht.Range("B9", Range("B" & Rows.Count). _
 ＞'                  End(xlUp)).Resize(, 11).Value
 
     MyList = Tanka_Sht.Range("B9", Range("B" & Rows.Count). _
                End(xlUp)).Resize(, 10).Value
 
 ＞'     For j = 9 To UBound(MyList)
       For j = 1 To UBound(MyList)
         
 
 ＞'     If Chusyutu_Sht.Cells(i, 2) = MyList(j, 2) Then
       If Chusyutu_Sht.Cells(i, 2) = MyList(j, 1) Then
 
 ＞'            Chusyutu_Sht.Cells(i, 20) = MyList(j, 11)
            Chusyutu_Sht.Cells(i, 20) = MyList(j, 10)
 
 


この記事にはVBAのコードが含まれています。

緑の太文字→注釈
茶色の太文字→条件分岐
赤の太文字→ループ
青の太文字→その他

VBA初心者です。

条件一致の転記コードをコピーして修正しましたが正常に動きません。

やりたいことは
入金確認表・クレジット　両シートも一覧になっており
入金確認表はA10〜データが入力されており
クレシットはA9〜データが入力されています。

両シートのB行の値が一致で
入金確認表の20列目（T）にクレジットの11列目（K）へ値の転記がしたいです。
（一致しない場合は何もしない）


Sub 条件に合うデータを別シート抽出()



Dim Chusyutu_Sht As Worksheet
Dim Tanka_Sht As Worksheet
Dim MyList() As Variant
Dim LastRow As Long
Dim i As Long
Dim j As Long

    Set Chusyutu_Sht = Sheets("入金確認表")
    Set Tanka_Sht = Sheets("クレジット")

    
    Tanka_Sht.Select
    MyList = Tanka_Sht.Range("B9", Range("B" & Rows.Count). _
                     End(xlUp)).Resize(, 11).Value

    '最終行
    LastRow = Chusyutu_Sht.Cells(Rows.Count, 1).End(xlUp).Row

    '「抽出」シート ループ
    For i = 10 To LastRow

        For j = 9 To UBound(MyList)

            '条件一致で別シート転記
            If Chusyutu_Sht.Cells(i, 2) = MyList(j, 2) Then
            
                Chusyutu_Sht.Cells(i, 20) = MyList(j, 11)

            End If
        Next j
    Next




End Sub


どう編集したらいいでしょうか？
宜しくお願い致します。