Option Explicit
Dim i, letzteReihe As Integer

Dim SWertung, SDummy As Range

Const ersteSpalte As Integer = 5 'derzeit höchste Wertung nach 5er-Serie
Const letzteSpalte As Integer = 11 'derzeit niedrigste Wertung nach 5-Serie

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("P2:P200")) Is Nothing Then Exit Sub

letzteReihe = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row

If letzteReihe < 2 Then Exit Sub


For i = 2 To letzteReihe

 Set SWertung = Range(Cells(i, ersteSpalte), Cells(i, letzteSpalte)) 'Schießergebnisse des Schützen nach 5er-Serien
 Set SDummy = Range("Z2:Z9") 'Sortierspalte

 Range("Z2:Z8").Value = Application.Transpose(SWertung)
 Range("Z9").Value = Application.Sum(Range(Cells(i, 12), Cells(i, 16))) 'Summe der 5er-Schussserie in Sortierspalte eintragen
 
 ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Clear
 ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add Key:=SDummy _
        , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Tabelle1").Sort
        .SetRange SDummy
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
 
 SWertung.Value = Application.Transpose(Range("Z2:Z8").Value)

Next i

....