Sub NonVide()
If Application.CountA(Cells(ActiveCell.Row + 1, 3).Resize(Rows.Count - ActiveCell.Row)) Then _
Cells(ActiveCell.Row, 3).End(xlDown).Select Else _
If Application.Count(Columns(3)) Then Cells(Application.Match(9 ^ 99, Columns(3)), 3).Select
End Sub