bir sheetteki verinin karşılığını diğer sheetten getirme

[u.L.a.s]

Merhabalar

Firmalar ve Error adlı iki ayrı sheet im var.
Firmalar sheeti kaynak sheetim olup tüm verilerim burdadır

Error sheetimdede ise bazı veriler getirdiğim yerdir.

Error sheetime bu verileri başka makro ile A ve B sütununa getiriyorum.
C sütununa ise bir veri getirmem gerekiyor.

onuda şu şekilde yapmalıyım.

B sütununda bulunan verimi Firmalar sheetinde arayıp bulup bu değerin bulunduğu satırda D sütunundaki veriyi Error Sheetinde C sütununda karşısına yazacak.

Örnek Excel dosyasını aşağıdaki linkten indirebilirsiniz. bu dosya içerisinde aşağıdaki makro kodda mevcut olup bunu Error Sheetinde bir butonada atadım.
Fakat dediğim gibi istediğim olmuyor. kodda bir hata var ama çözemedim.

yardımcı olursanız sevinirim

Sub Bul_Getir()
Application.ScreenUpdating = False
On Error Resume Next
Sheets("Error").Range("c1:c65536").ClearContents
Set s1 = ThisWorkbook.Worksheets("Error")
Set s2 = ThisWorkbook.Worksheets("Firmalar")
For i = 1 To s1.Range("A65536").End(xlUp).Row
For k = 3 To s2.Range("A65536").End(xlUp).Row

If s1.Cells(i, 2) = s2.Cells(k, 5) Or s1.Cells(i, 2) = s2.Cells(k, 6) Or _
s1.Cells(i, 2) = s2.Cells(k, 7) Or s1.Cells(i, 2) = s2.Cells(k, 8) Or _
s1.Cells(i, 2) = s2.Cells(k, 9) Or s1.Cells(i, 2) = s2.Cells(k, 10) Or _
s1.Cells(i, 2) = s2.Cells(k, 11) Or s1.Cells(i, 2) = s2.Cells(k, 12) Or _
s1.Cells(i, 2) = s2.Cells(k, 13) Then
s1.Cells(i, 3) = s2.Cells(k, 4)
End If
Next k
Next i
Application.ScreenUpdating = True
End Sub

Firmalar Sheeti(Verinin bulunduğu sheet)

Error Sheeti(Burdaki veriye göre Firmalar sheetindeki karşılığının geleceği sheet)

http://s3.dosya.tc/server30/hNmE4b/veribulgetir.rar.html