Soru vba ile düşeyara hatası

[sirkülasyon]

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Not Intersect(Target, Range("G8:G26")) Is Nothing Then
        sat = Target.Row
        Cells(sat, "H") = WorksheetFunction.VLookup(Sheets("Fazla Ödenen Yabancı Dil").Range("G8:G26"), Sheets("Katsayılar").Range("QW2:QX21"), 2, 0)
    Else
        If Not Intersect(Target, Range("J8:J26")) Is Nothing Then
            sat = Target.Row
            Cells(sat, "K") = WorksheetFunction.VLookup(Sheets("Fazla Ödenen Yabancı Dil").Range("J8:J26"), Sheets("Katsayılar").Range("QW2:QX21"), 2, 0)
        End If
    End If
End Sub

G8 ile G26 arasında seçilen verinin H sütununa gelmesini istiyorum ama sadece G8 hücresi çalışıyor.
J8 ile J26 arasında seçilen verinin de K sütununa gelmesini istiyorum ama o da sadece J8 hücresinde çalışıyor.

Rica etsem yanlışımı düzeltebilir misiniz?

 

[PLİNT]

Merhaba
Kodların içindeki kırmızı bölümleri altındaki mavi yazılı şekliyle deneyin
Sheets("Fazla Ödenen Yabancı Dil").Range("G8:G26")
Sheets("Fazla Ödenen Yabancı Dil").Range("G" & sat)

Sheets("Fazla Ödenen Yabancı Dil").Range("J8:J26")
Sheets("Fazla Ödenen Yabancı Dil").Range("J" & sat)

 

[sirkülasyon]

PLİNT
Teşekkür ederim. Sağ Olasın