Ekders Uygulamasında Verileri Farklı Sayfadaki Tabloya Yerleştirmek

eklerken bir hata alıyorum
fakat ben bu dosya üzerinde çok oynama yaptım. çalışır vaziyetteki dosyaya sizin örneği uygulayacağım. umarım sorun olmaz

öğretmen ekledim sorun çıkmadı ama dikkat etmeniz gereken şey fonksiyon değerleri "AV" sütunundan alıyor eğer yeni öğretmen eklemenize rağmen "AV" sütunundaki fonksiyon aşağı doğru kopyalanmamış ise değerler boş gösterir

Sayın Haliliyas 
toplam sütünü bir ay içerisindeki gün sayısına göre değişebiliyor.
Ekders sayfasında takvim var orada ayı değiştirdikçe gün sayısı da değişiyor. haliyle toplam sütunu bazen AV bazen AW sütununda olabiliryor. yani sabit değil

Sub Puantaj2()

Dim xSatirNo, ASonSatir, FSonSatir, XAlanlar, xSiraNo, xSonSutun As Long

xSonSutun = Cells(3, Columns.Count).End(xlToLeft).Column

SonHrf = Replace(Cells(1, xSonSutun).Address(0, 0), 1, "")

xSatirNo = 3

ASonSatir = Cells(Rows.Count, 1).End(xlUp).Row

FSonSatir = Cells(Rows.Count, 6).End(xlUp).Row



XAlanlar = 3

Do While 1 = 1



    xSatirNo = Range("A" & xSatirNo).End(xlDown).Row

    y = Range("a" & XAlanlar).Value

    x = XAlanlar

    Sheets("Puantaj2").Range("B" & 2 + y).Value = Range("D" & x).Value

    Sheets("Puantaj2").Range("C" & 2 + y).Value = Range("E" & x).Value

    If xSatirNo > ASonSatir Then Exit Do

    For x = XAlanlar To xSatirNo - 1

        y = Range("a" & XAlanlar).Value

        If Range("h" & x).Value = 101 Then Sheets("Puantaj2").Range("D" & 2 + y).Value = Application.WorksheetFunction.Sum(Range("R" & x & ":" & SonHrf & x))  'Range("av" & x).Value rx:aux

        If Range("h" & x).Value = 103 Then Sheets("Puantaj2").Range("f" & 2 + y).Value = Application.WorksheetFunction.Sum(Range("R" & x & ":" & SonHrf & x))  ' Range("av" & x).Value

        If Range("h" & x).Value = 106 Then Sheets("Puantaj2").Range("I" & 2 + y).Value = Application.WorksheetFunction.Sum(Range("R" & x & ":" & SonHrf & x))   'Range("av" & x).Value

        If Range("h" & x).Value = 107 Then Sheets("Puantaj2").Range("K" & 2 + y).Value = Application.WorksheetFunction.Sum(Range("R" & x & ":" & SonHrf & x))  ' Range("av" & x).Value

        If Range("h" & x).Value = 108 Then Sheets("Puantaj2").Range("J" & 2 + y).Value = Application.WorksheetFunction.Sum(Range("R" & x & ":" & SonHrf & x))   'Range("av" & x).Value

        If Range("h" & x).Value = 109 Then Sheets("Puantaj2").Range("L" & 2 + y).Value = Application.WorksheetFunction.Sum(Range("R" & x & ":" & SonHrf & x))  ' Range("av" & x).Value

        If Range("h" & x).Value = 116 Then Sheets("Puantaj2").Range("H" & 2 + y).Value = Application.WorksheetFunction.Sum(Range("R" & x & ":" & SonHrf & x))   'Range("av" & x).Value

        If Range("h" & x).Value = 117 Then Sheets("Puantaj2").Range("G" & 2 + y).Value = Application.WorksheetFunction.Sum(Range("R" & x & ":" & SonHrf & x))   'Range("av" & x).Value

        If Range("h" & x).Value = 119 Then Sheets("Puantaj2").Range("E" & 2 + y).Value = Application.WorksheetFunction.Sum(Range("R" & x & ":" & SonHrf & x))  ' Range("av" & x).Value





    Next

     XAlanlar = xSatirNo

Loop

    Sheets("Puantaj2").Range("B" & 2 + y).Value = Range("D" & x).Value

    Sheets("Puantaj2").Range("C" & 2 + y).Value = Range("E" & x).Value

    For x = XAlanlar To FSonSatir

        y = Range("a" & XAlanlar).Value

        If Range("h" & x).Value = 101 Then Sheets("Puantaj2").Range("D" & 2 + y).Value = Application.WorksheetFunction.Sum(Range("R" & x & ":" & SonHrf & x))  ' Range("av" & x).Value

        If Range("h" & x).Value = 103 Then Sheets("Puantaj2").Range("f" & 2 + y).Value = Application.WorksheetFunction.Sum(Range("R" & x & ":" & SonHrf & x))   'Range("av" & x).Value

        If Range("h" & x).Value = 106 Then Sheets("Puantaj2").Range("I" & 2 + y).Value = Application.WorksheetFunction.Sum(Range("R" & x & ":" & SonHrf & x))  ' Range("av" & x).Value

        If Range("h" & x).Value = 107 Then Sheets("Puantaj2").Range("K" & 2 + y).Value = Application.WorksheetFunction.Sum(Range("R" & x & ":" & SonHrf & x))  ' Range("av" & x).Value

        If Range("h" & x).Value = 108 Then Sheets("Puantaj2").Range("J" & 2 + y).Value = Application.WorksheetFunction.Sum(Range("R" & x & ":" & SonHrf & x))  ' Range("av" & x).Value

        If Range("h" & x).Value = 109 Then Sheets("Puantaj2").Range("L" & 2 + y).Value = Application.WorksheetFunction.Sum(Range("R" & x & ":" & SonHrf & x))  ' Range("av" & x).Value

        If Range("h" & x).Value = 116 Then Sheets("Puantaj2").Range("H" & 2 + y).Value = Application.WorksheetFunction.Sum(Range("R" & x & ":" & SonHrf & x))   'Range("av" & x).Value

        If Range("h" & x).Value = 117 Then Sheets("Puantaj2").Range("G" & 2 + y).Value = Application.WorksheetFunction.Sum(Range("R" & x & ":" & SonHrf & x))   'Range("av" & x).Value

        If Range("h" & x).Value = 119 Then Sheets("Puantaj2").Range("E" & 2 + y).Value = Application.WorksheetFunction.Sum(Range("R" & x & ":" & SonHrf & x))   'Range("av" & x).Value

    Next

MsgBox ("Son S?tun: " & SonHrf)

End Sub

bu kod sütun sayısına göre yapıyor, değerleri kendi topluyor o nedenle biraz aağır

sayın Haliliyas
tablodaki sonuçlara baktığımda toplamın 2 katı şeklinde hesaplama yapıyor. tüm ekdersler 2 katı kadar görünüyor

pardon son satır toplamdı onu çıkarmayı unutmuşum
xSonSutun = Cells(3, Columns.Count).End(xlToLeft).Column satırını
xSonSutun = Cells(3, Columns.Count).End(xlToLeft).Column -1 ile değiştirin