X，Y、２つのエクセルファイルがあり、以下に述べるある条件に合致したYの

記載した質問でほぼあっていたので、ほっとしています。

ファイル名固定で、エラーチェックは少しさぼって作ってみました。

多分これで実用できると思います。コピーして、title.xlsの標準モジュールにマクロを入れて動かしてみてください（別なブックへ入れても動きます）。

動作環境などは、ソース上のコメントをご覧ください。

title.xlsはFrom表、youkou.xlsはTo表と呼んでいます。

Option Explicit

'ブック名称や列は下記に固定→可変にする場合は、マクロ変更ください
Public Const sKeyBody As String = "a_test_"   '小文字で指定

Public Const sFromName As String = "title.xls"
Public Const sFromAnsClm As String = "D"
Public Const iFromTitleRow As Integer = 1

Public Const sToName As String = "youkou.xls"
Public Const sToKeyAddr As String = "B7"
Public Const sToTgtAddr As String = "B16"

Sub 抽出()
'
' From表にまとめられているデータをToのそれぞれの
' シートにあるキーワードで抽出してペーストする
'
' <動作環境>
' 両方のブックは開いておく。
' From表は、オートフィルター状態にしておく
' マクロ起動で、範囲を聞いてくるので、入力する
'
    Dim sStart As String
    Dim sEnd As String
    Dim objTo As Worksheet
    Dim sKey As String
    
    sStart = sKeyBody & Format(InputBox("開始番号は？"), "00")
    sEnd = sKeyBody & Format(InputBox("終了番号は？"), "00")
    Windows(sToName).Activate
    
    For Each objTo In Worksheets    'Toの各シート毎に処理
        objTo.Select
                                    '文字型にして小文字化
        sKey = LCase(CStr(Range(sToKeyAddr).Value))
        If sStart <= sKey And sKey <= sEnd Then
            
            '範囲内ならフィルタして貼り付け
            Windows(sFromName).Activate
            Selection.AutoFilter Field:=1, Criteria1:=sKey
            
            'キーワードがないときには、貼り付けしない
            If Range("D65536").End(xlUp).Row <> iFromTitleRow Then
                                    '先頭行の次から値がある最後までをコピー
                Range(Range(sFromAnsClm & iFromTitleRow).Offset(1), _
                      Range("D65536").End(xlUp)).Select
                Selection.Copy
                Windows(sToName).Activate
                Range(sToTgtAddr).Select
                                    '文字内容のみを貼り付け
                Selection.PasteSpecial Paste:=xlPasteValues, _
                    Operation:=xlNone, SkipBlanks:=False, Transpose:=False
            Else
                Windows(sToName).Activate
            End If
        End If
    Next
    
End Sub

P.S.キーワードが、片方はA_test_t01、片方はa_test_01で文字内容が違っています。アップしてあったファイルそのままでは動きませんので、同じ文字に合わせてください（大小文字は関係なし）。

P.S.質問中のコメントやトラックバックは有効にしておいたほうがいいです。途中でも色々コメントがもらえますから。。。