excell arama

Sub BulYaz() 
 'makro Mesut Akcan. 27/1/2017 
 Dim r As Range, h As Range, r2 As Range, h2 As Range 
 Set r = Sheets("Sayfa1").Range("A1:A1500") 
 Set r2 = Sheets("Sayfa2").Range("B1:B10000") 
 For Each h In r 
     For Each h2 In r2 
     DoEvents 
         If h = h2 Then 
             For n = 1 To 4 
                 h.Offset(, n).Value = h2.Offset(, n).Value 
             Next 
         End If 
     Next 
 Next 
 End Sub