Option Explicit
Sub Sort_Descending_With_Header()
Range("I15:M31").Sort _
Key1:=Range("M15"), Order1:=xlDescending, Header:=xlYes
End Sub
Cust Goals1 Goals2 Goals3 Goals4
a 0% 59% 43% 34%
b 100% 27% 55% 61%
c 0% 100% 100% 67%
d 0% 38% 55% 31%
e 18% 4% 15% 100%
f 100% 100% 100% 100%
g 0% 100% 100% 67%
h 100% 50% 42%
i 0% 100% 100% 67%
j 0% 59% 43% 34%
k 0% 8% 8% 67%