Kodun açıklamasını da yazayım belki değiştirmek istediğin yer olursa ona göre değiştirirsin.
Dim j As Integer: j = Range("F2").Text
satırıyla F2 hücresinde ki text değerini integer tipindeki bir değişkene atıyoruz.
For i = 3 To 14
Koduyla integer tipindeki i değişkenimize 3 ila 14 satırlar arasında bir döngü kuruyoruz.
If j >= Cells(i, 1) And j <= Cells(i, 2) Then Range("F4") = Cells(i, 3)
Bu kodlarla da j değişkenimizin değerinin, i satırının 1. sütunundaki değerden büyük mü veya eşit mi ve i satırının 2. sütunundaki değerden küçük mü veya eşit mi olduğunu kontrol ederek, eğer uygun sonuç bulunursa F4 hücresine i satırının 3. sütunundaki değerin gelmesini sağlıyoruz.