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