Range.Sort orders a range by one to three key columns. The Header argument keeps the first row in place.

Code

Range("A1:D100").Sort Key1:=Range("B1"), Order1:=xlDescending, Header:=xlYes

• Sort by one column

  Range("A1:D100").Sort Key1:=Range("B1"), Order1:=xlDescending, Header:=xlYes → Sorted by column B, largest first

  The one-liner.

• Two keys

  Range("A1:D100").Sort Key1:=Range("C1"), Order1:=xlAscending, Key2:=Range("B1"), Order2:=xlDescending, Header:=xlYes → By C, then by B within C

  Two keys.

• Sort a block

  Range("A1").CurrentRegion.Sort Key1:=Range("A1"), Header:=xlYes → Sort whatever block is at A1

  Size-independent.

• The newer ws.Sort.SortFields interface supports color sorts and more keys but is verbose.
• Always pass Header explicitly.
• Sort a Table with ListObject.Sort.

• Omitting Header lets Excel guess and sometimes sorts the header into the data.
• Keys outside the range error.