Найти и скопировать значения между рабочими книгами

Question

Я пытаюсь автоматизировать задачу поиска номера детали в другой рабочей книге (рабочей книге, содержащей чуть более 100 листов) и копирования данных в рабочий лист.

У меня есть два листа Excel с данными, в которых есть уникальный идентификационный номер детали (выделенные ячейки на изображении 2). Столбец «C» на изображении 2 имеет соответствующий и совпадающий номер детали в столбце «F» на изображении 1. (Хотя я не знаю, на каком листе находится эта информация).

Мне нужно выполнить цикл по столбцу 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?