Sort Macro

I'm trying to sort multiple rows and columns in descending order using a macro. I want to sort by column D, but I'm a stuck with the formula below.

Here is my Macro:

Sub Sort_by_Shop()
Columns("D").Sort Key1:=Range("D"), Order1:=xlDescending, Header:=xlYes
End Sub