SORT EN MACRO VBA

hola, Eduardo !

tengo un rango de celda "A6:D500" que deseo ordenar en forma descendente tomando como referencia la celda "D"

si necesitas ordenar un rango por solo una columna y esta es la columna 4 (adapta segun tus condiciones reales)

Sub Ordena_por_columna4()
With Range("a6:d500")
.Sort Key1:=.Columns(4), Order1:=xlAscending, Header:=xlGuess
End With
End Sub

te recomiendo que seas "especifico" en cuanto a indicarle al codigo si el listado tiene (o no) "encabezados"
-> Header:=xlNo
-> Header:=xlYes

saludos,
hector.