Solved: Comparing Between 2 Workbooks and Inserting Missing Data

[mancubus]

hi and wellcome to the forum.

copy the code below to Workbook1's code module

[vba]
Sub FindNCopy()

Dim wb1 As Workbook, wb2 As Workbook
Dim rng As Range, cll As Range
Dim LR As Long, fRow As Long

Set wb1 = ThisWorkbook
Set wb2 = Workbooks("Book2.xlsx") 'change Book2.xlsx to actual Workbook2's name

With wb1.Worksheets("Sheet1")
LR = .Cells(.Rows.Count, "A").End(xlUp).Row
Set rng = .Range("A2:A" & LR)
For Each cll In rng
On Error Resume Next
fRow = Application.Match(cll.Value, wb2.Worksheets("Sheet1").Columns("A"), 0)
If fRow > 0 Then
.Cells(cll.Row, "H").Value = wb2.Worksheets("Sheet1").Cells(fRow, "F").Value
End If
On Error GoTo 0
Next
End With

End Sub
[/vba]