This is what I get from my macro

Range("A6:D189").Select
Range("D6").Activate
Selection.Sort Key1:="R6C4", Order1:=xlDescending, Type:=xlSortValues, _
OrderCustom:=1, Orientation:=xlTopToBottom
Range("E1").Select

Would you gave me the complete set up... I have not much experience using
the macros on the view code where I think is where it should go.

Thanks