Sort rows based on open or closed orders.

Private sub Worksheet_Change(Byval Target as Range)
if not intersect(target, Range("B:B")) is nothing then Range("A1:C" & Range("A" & rows.count).end(xlup).row).sort _
    Key:=Range("B1"), Order:=xldescending
end sub

Thank you for the input, attached is a copy of the worksheet. will help give you a better idea of what I have. Again thank you for your help with this.