Private Sub Worksheet_Activate()
Dim rgv1, rgv2
Set rgv1 = Cells(Rows.Count, "ce").End(xlUp)
Set rgv2 = Range("ce1:ce" & rgv1.Row).Find(what:="", after:=Range("ce1"), LookIn:=xlValues, lookat:=xlWhole, SearchDirection:=xlPrevious)
If Not rgv1 Is Nothing And Not rgv2 Is Nothing Then Range(rgv1, rgv2).Clear
End Sub