Aynı Sayfadaki İki Sutunu Yan Yana Eşleştirme

Sub Eslestir()
    Set s1 = Sheets("Sayfa1")
    Set s2 = Sheets("Sayfa2")
    
    s2.Cells.Clear
    ss = s1.Cells(Rows.Count, "B").End(3).Row
    s1.Range("A1:C" & ss).Copy s2.Range("A1")
    
For i = 3 To ss
    Aranan = s2.Cells(i, 2).Value
    Set c = s1.Range("F:F").Find(Aranan, , xlValues)
    If Not c Is Nothing Then _
  s2.Range("D" & i & ":E" & i) = s1.Range("H" & c.Row & ":I" & c.Row).Value
Next i
End Sub