Code:
Range("A6").End(xlDown).Offset(1).Value = "x"
Code:
ActiveSheet.Shapes("Rounded Rectangle 50").ZOrder msoBringToFront
'Range("A5").Select
Code:
On Error GoTo NoX
Range(Range("A6"), Range("A6").End(xlDown)).Find(What:="x", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False, SearchFormat:=False).ClearContents
With the last one, instead of
On Error Goto, you could:
Code:
Dim myCell As Range
Set myCell = Range(Range("A6"), Range("A6").End(xlDown)).Find(What:="x", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False, SearchFormat:=False)
If Not myCell Is Nothing Then myCell.ClearContents 'Else something else (such as a msgbox informing the user of non-existence)