Hope this code help you much...below code clear the text contained cells in Column - A
Sub ClearTextData()
Dim rng As Range
Dim cel As Range
Set rng = Range("A1:A65536")'assign the range up to the data have
For Each cel In rng
If WorksheetFunction.IsText(cel.Value) Then...