kodu aşağıdaki gibi düzenleyebilirsiniz?
burada b sütununda aşağı gidildikçe o satıra değer gelir
yok eğer ben b de harekettiğimde hepsi gelsin derseniz o da yapılır ama fazla veri olduğunda ağırlaşabilir

If Not Intersect(Target, Range(" B9:B54")) Is Nothing Then

        Dim s1 As Worksheet

        Dim s2 As Worksheet

        Set s1 = Sheets("Okul")

        Set s2 = Sheets("İlçe")

        StrNo = Target.Row

        s2.Range("G" & StrNo) = WorksheetFunction.VLookup(s2.Range("B" & StrNo), s1.Range("B9:h54"), 4, 0)

        s2.Range("H" & StrNo) = WorksheetFunction.VLookup(s2.Range("B" & StrNo), s1.Range("B9:h54"), 5, 0)



End If