Option Explicit
Private Sub CommandButton1_Click()
Dim wks As Excel.Worksheet
Dim lngLetzteZeile As Long
Set wks = ActiveWorkbook.Worksheets("Vergleich")
With wks
lngLetzteZeile = .Cells(.Rows.Count, "A").End(xlUp).Row
If lngLetzteZeile < 15 Then Exit Sub
With .Range("D15:D" & lngLetzteZeile)
.FormulaR1C1 = "=RC[-2]+RC[-1]"
.Value = .Value
End With
With .Range("A15:D" & lngLetzteZeile)
.Sort Key1:=.Cells(2), Order1:=xlDescending, _
DataOption1:=xlSortTextAsNumbers, _
SortMethod:=xlPinYin
End With
End With
End Sub