Düşeyara makrosunda hata alıyorum

[vivident]

Merhaba

Ekteki dosyamda
M15;M24 (yeşil fontlu) değerlerini
C3:C12 (sarı fontlu) alanında arayıp, bu değerlere karşılık gelen Q3:Q12 metinlerini Q15:Q24 arasına yapıştırmak. Lakin makro yarıya kadar gelip hata veriyor. Nerede yanlış yapıyorum yardımcı olursanız memnun olurum

Sub duşeyara()
Set s1 = Sheets("list")
Set s2 = Sheets("list")
son = s1.Cells(65536, 3).End(xlUp).Row
son1 = s2.Cells(65536, 13).End(xlUp).Row
For i = 15 To son
If s2.Cells(i, 13) <> "" Then
s2.Cells(i, 17) = Application.WorksheetFunction.VLookup(s2.Cells(i, 13), s1.Range("C3:Q12" & son), 15, 0)
End If
Next
End Sub

 

[Emir Hüseyin Çoban]

. . .

Sub duşeyara()
    Set s1 = Sheets("list")
    Set s2 = Sheets("list")
    son = s1.Cells(65536, 3).End(xlUp).Row
    son1 = s2.Cells(65536, 13).End(xlUp).Row
    For i = 15 To son
        If s2.Cells(i, 13) <> "" Then
           [B] If WorksheetFunction.CountIf(s1.Range("C3:C12"), s2.Cells(i, 13)) > 0 Then[/B]
                s2.Cells(i, 17) = Application.WorksheetFunction.VLookup(s2.Cells(i, 13), s1.Range("C3:Q12"), 15, 0)
        [B]    End If[/B]
        End If
    Next
End Sub

. . .

 

[vivident]

Çok teşekkürler hüseyin bey