Vba ile 2 li düşey ara

[furens]

Sayfa2 deki tc ve esas sütunlarının değerlerine göre sayfa1 deki tc ve esas sütlarında karşılaştırma y

Dim uyy, kihh, bul As Variant
uyy=worksheet("Sayfa1"). Range("A2:F44950)
kihh=worksheet("Sayfa2"). Range("B2:B1379, Q2:Q1379)
bul=Application. WorksheetFunction. VLookup(kihh, uyy, 6,0)
Worksheets("Sayfa2").Range("S2:S1379").Value=bul

aparak bunlara denk gelen yine sayfa1 deki varsa karar noyu sayfa 1 deki karar sütununa yazıcak.
Ben vba da yapmaya çalıştım başaramadım.