SUB Ellipse 4_Click ()
Dim yyy as integer
YYY = Application.WorksheetFunction.counta (Column ("a")))
Range (Cells (1, 1), Cells (YYY, 1)). ClearContents
End Sub
Counta (Range ("A: A")) = Counta (Column ("A")
