Hi,
running the following macro:
ActiveSheet.Unprotect
Range("B10:GJ89").Select
Selection.Sort Key1:=Range("BE10"), Order1:=xlDescending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("BE1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWindow.ScrollColumn = 38
End Sub

This macro is applied to sort collumn BE which has the following formula for
each cell:
=IF(COUNT(DA10,BY10)=2,DA10-BY10,"")

When activated, it puts all the blank cells at the top of the collumn before
all the cells with values in. (NB it has sorted these correctly though in
descending order)

Any ideas what`s wrong folks?
Thanks for your time.
RR1