Sayın haliliyas
eklediğiniz örneği şimdi farkettim inceler size dönüş yaparım sağolun ilginiz için

        If Range("h" & x).Value = 101 Then Sheets("Puantaj2").Range("D" & 2 + y).Value = Range("av" & x).Value

        If Range("h" & x).Value = 103 Then Sheets("Puantaj2").Range("f" & 2 + y).Value = Range("av" & x).Value

        If Range("h" & x).Value = 106 Then Sheets("Puantaj2").Range("I" & 2 + y).Value = Range("av" & x).Value

        If Range("h" & x).Value = 119 Then Sheets("Puantaj2").Range("E" & 2 + y).Value = Range("av" & x).Value

yukardaki kodlara bakarak gerisini halledebilirsiniz umarım;
mantık aynı
If Range("h" & x).Value = 103 Then Sheets("Puantaj2").Range("f" & 2 + y).Value = Range("av" & x).Value
gördüğünüz gibi sadece kırmızı alanlar değişiyor kodun gerisi aynı

Sayın haliliyas
Evet fark ettim  o kodları. gerisini ben hallederim. çok teşekkür ediyorum. 
peki son bir şey sormak istiyorum.
Öğretmen sayısı arttığında satırların otomatik artmasını nasıl sağlayabiliriz. Yani Sayfa Ekdersteki öğretmen sayısına göre satırların açılmasını sağlayabilir miyiz?

kendiniz de deneyebilirsiniz sayfa yapıları değişmediği sürece, şablon aynıysa sorun çıkmaz diye umuyorum.

Sayın haliliyas 
ilginiz için çok sağolun. 
Allah razı olsun. iyi çalışmalar

öğretmen eklemeyi denediniz mi?