Sub Copy_Text_Only()
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
Range("A1:A" & Lastrow).Copy Range("B1")
On Error Resume Next
Columns("B").SpecialCells(xlConstants, xlNumbers).Clear
On Error GoTo 0
Application.ScreenUpdating = True
End Sub