[VBA]Do
i = i + 1
Loop Until ActiveCell.Offset(-i) = "" Or ActiveCell.Offset(-i) <= cvalue
ActiveCell.Offset(-i).Select
[/VBA]