Encontre e copie valores entre pastas de trabalho

Question

Estou tentando automatizar a tarefa de encontrar o número da peça em outra pasta de trabalho (uma pasta de trabalho contendo pouco mais de 100 planilhas) e copiar os dados para a planilha.

Eu tenho duas planilhas Excel contendo dados, dos quais há um número de peça de identificação exclusiva, (células destacadas na imagem 2) A coluna "C" da imagem 2 tem um número de peça correspondente e correspondente na coluna "F" da imagem 1. (Embora eu faça não sei em que folha está a informação)

Preciso percorrer a coluna C, selecionando cada número de peça e aplicativo. Encontre cada um na outra pasta de trabalho e retornando a linha onde cada número de peça aparece.

Atualmente tenho:

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

Que é uma macro gravada com algumas correções para tentar automatizar.

Existe alguma maneira mais fácil de fazer isso do que com o VBA?