masterブックのシート名がSheet1だとします。
 ※しっかし、レイアウトの説明がクリアじゃないなぁ。。
 
 各シートのレイアウトが以下だと仮定すると・・
 
 <master.xlsxのSheet1 サンプル>
 行  ___A___  ___B___  ____C____  ___D___  __E__  ____F____  __G__  ___H___
  1  コード   取引先   原材料CD   原材料   ｍCD   メーカー   帳CD   帳合先 
  2   210031  A社         100001  a          101  F社            1  N社    
  3   220300  A社         100201  pp         102  X社            2  M社    
  4   250001  A社         100031  uuuu       103  Z社            3  L社    
  5   240021  B社         100002  nnn        104  Q社            4  P社    
  6   350121  C社         100021  kkkkk      105  W社            5  E社    
 
 
 <マクロブックの抽出シート　結果図>
 行  ____A____  __B__  _C_  _D_  ____E____  __F__  _G_  ___H___
  1  資材明細                                                  
  2  変更       名称             項目       内容               
  3  あり                        原材料     a            100001
  4                              メーカー   F社                
  5                              帳合先     N社                
  6                              その他                        
  7  あり                        原材料                        
  8                              メーカー                      
  9                              帳合先                        
 10                              その他                        
 
 マクロブックの抽出シートのシートモジュールに下記マクロ書きこむ（標準モジュールにではない)

 ※原材料コードを書き込むと実行されるマクロ
 　　↓
 Private Sub Worksheet_Change(ByVal Target As Range)
     Dim rMaster As Range
     Dim RW, v
     
     If Target.CountLarge > 1 Then
         Exit Sub
     ElseIf Target.Column <> 8 Then
         Exit Sub
     ElseIf (Target.Row - 2) Mod 4 <> 1 Then   '3行目から3つ置きか
         Exit Sub
     End If
     
     '対象となる全体範囲を格納する（masterのシート名はSheet1と仮定)
     Set rMaster = Workbooks("master.xlsx").Worksheets("Sheet1").Range("A1").CurrentRegion
     
     'その3列目(原材料CD欄)の何行目に検索用Codeがあるかチェックする。
     RW = Application.Match(Target, rMaster.Columns(3), 0)
     
     If IsNumeric(RW) Then '該当ありの場合、同行のD,F,H列のデータをv(変数)に格納する(縦形式で)
         v = Application.Index(rMaster.Rows(RW), 1, [{4;6;8}])
     Else
         v = [{"";"";""}] '該当がないときは、空白文字を配列に格納する(縦形式で)
     End If
     
     'Targetセルと同じ行の2つ左から、縦3つのセルにｖを入力する
     Target(1, -1).Resize(3) = v
     
 End Sub
 


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

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

Changeイベントの連鎖発生を止めるのを忘れました。m(__)m

    Application.EnableEvents = False 'Changeイベントの連鎖発生を抑止する　←追加(1/2)
＞    'Targetセルと同じ行の2つ左から、縦3つのセルにｖを入力する
＞    Target(1, -1).Resize(3) = v
    Application.EnableEvents = True　’←追加(2/2)