Suchen und Kopieren von Werten zwischen Arbeitsmappen

Question

Ich versuche, die Aufgabe zu automatisieren, die Teilenummer in einer anderen Arbeitsmappe (einer Arbeitsmappe mit etwas mehr als 100 Blättern) zu suchen und die Daten in das Arbeitsblatt zu kopieren.

Ich habe zwei Excel-Tabellen mit Daten, von denen es eine eindeutig identifizierende Teilenummer gibt (hervorgehobene Zellen in Bild 2). Spalte „C“ in Bild 2 hat eine entsprechende und übereinstimmende Teilenummer in Spalte „F“ in Bild 1. (Ich weiß jedoch nicht, auf welcher Tabelle sich die Informationen befinden.)

Ich muss eine Schleife durch Spalte C durchlaufen und jede Teilenummer und Anwendung auswählen. Dann muss ich sie in der anderen Arbeitsmappe suchen und die Zeile zurückgeben, in der die jeweilige Teilenummer erscheint.

Ich habe derzeit:

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

Dabei handelt es sich um ein aufgezeichnetes Makro mit einigen Korrekturen zum Versuch der Automatisierung.

Gibt es eine einfachere Möglichkeit, dies zu erreichen, als mit VBA?