Sub test()
With ActiveSheet
.Range("b3:b327").Sort .Range("b3"), xlDescending
.Range("l3:l56").Sort .Range("l3"), xlDescending
End With
With ActiveSheet
.Range("h3:h327").Sort .Range("h3"), xlDescending
.Range("r3:r56").Sort .Range("r3"), xlDescending
End With
End Sub