Something like this, perhaps?
'''''''''''''''''''''
Sub test()
Dim rngCells As Range, _
Cell As Range
Const strAPPEND As String = "UT_"
With ActiveWorkbook
With .ActiveSheet
On Error Resume Next
Set rngCells =
.Range("A:A").SpecialCells(xlCellTypeConstants)
Err.Clear
On Error GoTo 0
If Not rngCells Is Nothing Then
For Each Cell In rngCells
Cell = strAPPEND & Cell.Text
Next Cell
End If
End With
End With
End Sub
'''''''''''''''''''''''''