Public Sub ProcessData()
Dim Lastrow As Long
Dim i As Long
Application.ScreenUpdating = False
With ActiveSheet
Lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row
For i = 1 To Lastrow
If IsNumeric(.Cells(i, "A").Value) Then
.Cells(i, "A").Value = "'" & .Cells(i, "A").Value
End If
Next i
End With
Application.ScreenUpdating = True
End Sub