ワークブック間で値を検索してコピーする

Question

別のワークブック (100 枚を超えるシートを含むワークブック) で部品番号を見つけて、そのデータを作業シートにコピーするタスクを自動化しようとしています。

2 つの Excel シートがあり、それぞれに固有の識別部品番号があります (画像 2 の強調表示されたセル)。画像 2 の列「C」には、画像 1 の列「F」に対応する一致する部品番号があります (ただし、どのシートに情報があるかはわかりません)。

列 C をループして、各部品番号とアプリケーションを選択する必要があります。他のワークブックでそれぞれを検索し、各部品番号が表示される行を返します。

現在、私は以下を所有しています:

Sub Findvalue()
'
' Findvalue Macro
'
' Keyboard Shortcut: Ctrl+o
'

b = 6 
c = 1
Set Start = "C" & b

While c < 250
    Range(Start).Select
    Selection.Copy
    Windows("SPARES.xlsm").Activate
    Cells.Find(What:="'Start'", After:=ActiveCell, LookIn:=xlFormulas,     LookAt _
    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
    False, SearchFormat:=False).Activate
    Windows("A696237-08_spare_parts U2D.xlsx").Activate
    Range(Start).Select
    ActiveSheet.Paste
    b = b + 1
End Sub

これは、自動化を試みるためにいくつかの修正を加えた記録されたマクロです。

VBA を使用するよりも簡単な方法はありますか?