Sort a column descending: VBA

Hi,

I want to sort column E with descending order.

Here is what I have so far...which sorts it in ascending order.

Worksheets("Sheet1").Range("A1").CurrentRegion.Sort key1:=Worksheets("Sheet1").Range("E1")

SortByFrequency.xlsx