Option Explicit

Sub highscore()
Dim r_h As Range
Dim r_zw As Range
Dim r_temp As Range

Set r_h = Range("A2:E2") 'in diesen zellen stehen die highscorewerte
Set r_zw = Range("G2:K2") 'diese zellen werden laufend mit neuen zahlen befüllt
Set r_temp = Range("m1:m10") 'spalte zum sortieren

Range("M1:M5").Value = Application.Transpose(r_h.Value) 'highscore in sortierspalte kopieren
Range("M6:M10").Value = Application.Transpose(r_zw.Value) 'zw kopieren

ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Clear 'tempspalte sortieren
ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add Key:=r_temp, _
    SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Tabelle1").Sort
    .SetRange r_temp
    .Header = xlNo
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With

r_h.Value = Application.Transpose(Range("M1:M5").Value) 'die obersten 5 werte in highscore kopieren

End Sub

Option Explicit
Dim i, n, letzteReihe As Integer

Dim SWertung, SDummy As Range

Const ersteSpalte As Integer = 5 'Spalte "E"
Const letzteSpalte As Integer = 11 'Spalte "K"

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
i = ActiveCell.Row

Application.ScreenUpdating = False

If letzteReihe < 2 Then Exit Sub

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)

....