VBAで転記（IDで絞込みし重複がないように全ての結果を転記先の１つのセルに入力する方法を教えてください）

Question

初めて質問させていただきます。
初心者のため質問内容に不足があったら申し訳ございません。

・やりたい事
別ブックへの転記
元データ
A列：顧客ID（重複あり）
B列：請求コード（重複あり）
C列：商品コード（重複あり）　
の元データがあります（実際には100列程あり、上記の抽出したいデータが飛び飛びの列になっていますが、便宜上A-C列としました）。
Enumで配列を作り、必要な列だけ元データの上から転記していくつくりにしています。
その際に
A2セルに「A1001」と入力されているとして、
顧客IDがA1001の全ての請求コード（B2001,B2004,B2001,B2009）を抽出し、転記先の請求コード列の１つのセル内に重複がないように「B2001/B2004/B2009」と転記する方法をご教示ください。
C列も同様の処理です。
単純な最終行までの転記は自身で出来たのですが、上記の場合どのように実現できるのか考え方も思い付かずお手上げ状態です。
これまでは手作業でA2の顧客IDをコピーしフィルターをかけて絞り込みして請求IDを目検で転記先にコピペする、それをA3以下最終行まで手作業で繰り返すやり方をしていたようです。

もし説明不足の部分がありましたら、
大変申し訳ないのですが御指摘いただけますと幸いです。
何卒よろしくお願いいたします。

Answer 1

出力の仕方が意図と違ってたらすみません。

Enum col
    A = 1
    B = 2
    C = 3
End Enum

Sub sample()
    Dim moto As Worksheet
    Set moto = Worksheets(1)
    Dim saki As Worksheet
    Set saki = Worksheets(2)
    
    Dim lastRow As Long
    lastRow = moto.Cells(moto.Rows.Count, col.A).End(xlUp).Row
    
    Dim sakiA As String, sakiB As Range, sakiC As Range
    sakiA = saki.Range("A2")
    Set sakiB = saki.Columns(col.B)
    Set sakiC = saki.Columns(col.C)
    
    Dim r, i, motoA As String, motoB As String, motoC As String
    r = 2
    For i = 2 To lastRow
        motoA = moto.Cells(i, col.A)
        motoB = moto.Cells(i, col.B)
        If motoA = sakiA And WorksheetFunction.CountIf(sakiB, motoB) = 0 Then sakiB(r, 1) = motoB
        r = r + 1
    Next
    
    r = 2
    For i = 2 To lastRow
        motoA = moto.Cells(i, col.A)
        motoC = moto.Cells(i, col.C)
        If motoA = sakiA And WorksheetFunction.CountIf(sakiC, motoC) = 0 Then sakiC(r, 1) = motoC
        r = r + 1
    Next
End Sub