Hi Jonas!
Welcome to vbax forum.
Not sure if the understanding is wrong.
Sub test()
Dim Wb1 As Workbook, Wb2 As Workbook, rng As Range, i&
Dim Sh1 As Worksheet, sh2 As Worksheet
Set Wb1 = Workbooks("Book1"): Set Wb2 = Workbooks("Book2")
Set Sh1 = Wb1.Sheets(1): Set sh2 = Wb2.Sheets(1)
For i = 1 To Sh1.Cells(Rows.Count, "s").End(3).Row
Set rng = sh2.Columns("i").Find(Sh1.Cells(i, "s"), lookat:=xlWhole)
If Not rng Is Nothing Then
If Sh1.Cells(i, "h") = "" Then Sh1.Cells(i, "h") = rng
End If
Next i
End Sub
--Okami