Soru indis kaçıncı ile diğer sayfadan veri getirme

[sirkülasyon]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim s1, s2 As Worksheet
Set s1 = Worksheets("yer")
Set s2 = Worksheets("Sayfa2")
s2.Range("K3").Value = Application.WorksheetFunction.Index(s1.Range("S2:S25"), Application.WorksheetFunction.Match(s2.Range("I3"), s1.Range("Q2:Q25"), 0), Application.WorksheetFunction.Match(s2.Range("J3"), s1.Range("R2:R25"), 0))
End Sub

Ustam;
Yer sayfasının S2 : S25 aralığındaki değeri Sayfa2 de ki K sütununa getirmek istiyorum. Bildiğim şekli ile yaptım ama hata veriyor.
Rica etsem
Sayfa2 sayfasının I3 : I500 aralığında ki bilgi yer sayfasının Q2 : Q25 aralığındaki veri
Sayfa2 sayfasının J3 : J500 aralığında ki bilgi yer sayfasının R2 : R25 aralığındaki veri
ile aynısı ise Sayfa2 sayfasının K3 : K500 aralığına yer sayfasının S2 : S25 aralığında ki veriyi getirecek.
yardımcı olabilir misiniz?