Обновить совпадающие значения из 2 книг

Question

У меня есть 2 рабочие книги, и мне нужно сопоставить номер политики из 2 электронных таблиц (номер политики в столбце C для обеих). Если найден соответствующий номер политики, я хотел бы скопировать и вставить данные, расположенные в столбце A из рабочей книги 2, в рабочую книгу 1, столбец Y. Я надеялся получить для этого код VBA, поскольку у меня есть большие наборы данных для консолидации из нескольких электронных таблиц Excel, и с помощью VLOOKUPs требуется слишком много времени, чтобы выполнить следующие действия.

Я придумал такой большой код, и, похоже, возникла ошибка «объект не найден», я просто учусь кодировать сейчас так что я не уверен, где я ошибся

Sub transfer()
Dim i As Long, j As Long, lastrowl As Long, lastrow2 As Long

Dim policyID As String
lastrow1 = Sheets("Sheet2").Range("C" & Row.Count).End(xlUp).Row

For i = 2 To lastrow1
policyID = Sheets("sheet2").Cells(i, "C").Value

Sheets("MAE Project").Activate
lastrow2 = Sheets("MAE Project").Range("B" & Row.Count).End(xlUp).Row

For j = 2 To lastrow2

If Sheets("MAE Project").Cells(j, "B").Value = policy Then
Sheets("sheet2").Activate
Sheets("sheet2").Range(Cells(i, "A")).Copy
Sheets("MAE Project").Activate
Sheets("MAE Project").Range(Cells(j, "Y")).Select
ActiveSheet.Paste
End If

Next j
Application.CutCopyMode = False
Next i
Sheets("sheet2").Activate
Sheets("Sheet2").Range("A1").Select

End Sub